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Answers to Tough Questions 


This ts volume C2 of The Secret Guide to Computers. 


Welcome to the final and culminating volume of The Secret Guide to Computers. 


It answers. 


-questions I was too chicken to tackle in the earlier volumes. 


After Pendeng this, some readers will On mud pies at me. 


Go ahead—I'm wearing my goggles. 


P.S. Here's the table of contents.... 
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If you have little money, which computer should you buy? 


Buy Radio Shack's TRS-80 computer. Its price is low, it has a super-fancy version 
of BASIC (if you buy the "Level 2" option), and it can do fancy graphics. You can 
attach it to a variety of inexpensive disks and printers. 


If you have lots of money, which computer should you buy? 


For most applications, your best bet is to buy lots of Radio Shack computers. But 

if you insist on graphics in color (instead of in black-and-white), or if you insist 
on FORTRAN or COBOL or PL/I (instead of BASIC), or if you must process a long file 
that requires a large disk (instead of a minifloppy disk), you must step up to a 
larger computer. For color graphics, inexpensively, get the Apple (a microcomputer). 
For large disks and a variety of languages, you'll like DEC's PDP-11 (a minicomputer) 
and PDP-20 (a maxicomputer). If you insist on PL/I, you'll probably wind up with 

an IBM (since PDP computers don't have decent versions of PL/I) or with a computer 
that imitates an IBM (such as Amdahl's 470). Before you buy, look at the competition, 
but you'll probably prefer the computers I just mentioned. 


Which computer companies are the largest? 


IBM is the largest. In fiscal 1977, its data-processing sales totaled 14.8 billion 
dollars. That includes the sales of computer equipment, programs, and services. 
(It omits the sales of non-computer equipment, such as non-computerized typewriters.) 
The second largest is Burroughs, at 1.8 billion. Tied for third place are NCR, 
Control. Data, and Sperry Rand, each at about 1.5 billion. Tied for sixth are DEC 
and Honeywell, each at about 1 billion. Those companies are all based in the 
United States. Then come the foreigners: Japan's Fujitsu at 855 million dollars; 
France's CII-HB at 765 million; Japan's Hitachi at 720 million; and West Germany's 
Siemens at 550 million. Tied for 12th place are Memorex, Hewlett-Packard, and 
Japan's Nippon Electric, each at about 400 million. The 15th is West Germany's 
Nixdorf, at 385 million. Then come several U.S. companies: TRW (350 million), 
Itel (285 million), Data General (255 million), and both 3M and ADP (each at 240). 
Those are the top 20 computer companies in the world. Notice that 14 of them are 
American, 3 are Japanese, 2 are German, and 1 is French. 


What's an '"'S-100 bus"? 


It's a cable that contains 100 wires. At one end of the cable lies a CPU that 
belongs to the 8080 microcomputer family (in other words, it's an 8080A or 8085 or 
Z-80 or Z-80A); at the other end of the cable lie the main memory, auxiliary memory, 
and I/0 devices. Many companies sell peripherals "for the S-100 bus''; that means 
you can attach the peripherals to any computer having an S-100 bus: for example, you 
can attach those peripherals to Altair, Imsai, Polymorphic, and Processor Technology 
computers; but you canvot attach those peripherals to a computer that contains a 
6502 CPU (such as the PET or the Apple) or a 6800 CPU (such as the SWIP computer) or 
a computer that uses a weird bus (such as Radio Shack and Digital Group), unless you 
do a lot of fiddling. If your computer doesn't have an S-100.bus; but you wish it 
did, you can usually buy an '"'S-100 bus interface", which connects your computer's 
bus to an S-100 bus (which in turn connects to the peripherals). But beware: many 
con artists are trying to sell S-100 bus interfaces that don't work. Ask to see a 
demonstration before you buy! 


If Radio Shack's computer is so exciting, why is it colored gray? 


Why 


It isn't "gray". According to Radio Shack, it's "Mercedes silver". When you look 
at a Radio Shack computer, you're supposed to imagine yourself driving a Mercedes. 
are disks better than tapes? 

Most tape drives don't have a "fast forward"; the only way to reach the middle of 
the tape is to read through all the junk at the beginning. A disk drive is usually 
faster, because the disk's arm can hop to the middle of the disk. Even if you have 
a "DECtape drive" (which has a fast forward) or an audio cassette tape recorder 
(which has a fast forward), the "fast forward''-still isn't) as fast as a disk's arm 


C3 


What's the best book on BASIC? 
After you've read volumes 1 and C1 of The Secret Guide to Computers, get Dwyer and 
Critchfield's BASIC and the Personal Computer, published by Addison-Wesley in 1978. 
It's huge (438 pages), up-to-date (emphasizes the PDP-11's BASIC-PLUS and 
microcomputers' Extended BASIC), easy to read, and chock full of thoroughly explained 
programs that are funny, useful, hit a wide variety of applications, and use advanced 
techniques. The book costs $12.95, and is worth every penny. 

What's the best book on PL/I? 
Melvin Davidson's PL/I Programming with PL/C, published in 1973 by Houghton Mifflin, 
1s the easiest and best introduction to PL/I. You'll like the quick pace, the simple 
style, and the emphasis on examples. The book is extremely well organized, so that 
after a few minutes of reading you already know how to write complete programs with 
confidence; the rest of the book gradually dips you into deeper techniques. 228 pages, 
$8.95. 

What's the best book on computer games? 
David Ahl's BASIC Computer Games: Microcomputer Edittton contains programs for 100 
computer games, including such favorites as Animal, Blackjack, Checkers, Football, 
Hammurabi, Hangman, Hi-Q, Lem, Life, Lunar, Madlib, Mastermind, Poker, Qubic, 
Roulette, and Super Star Trek. All programs are written in BASIC and work on an 
8K Altair computer, so they'll work on most other microcomputers and PDP computers 
too. The book costs just $7.50, which means just 74¢ per game! Get it at your 
local computer bookstore, or send the $7.50 plus $1 postage to Creative Computing 
Press, Box 789-M, Morristown, NJ 07960. 

How does the computer process a FORTRAN program? 
A computer that uses cards typically works like this....You type the FORTRAN program 
on cards. You feed the cards into the computer. The computer copies the program 
from the cards onto a disk. The computer's FORTRAN compiler translates the 
program from FORTRAN to machine language, and stores the machine-language version 
on the disk also. (The original FORTRAN version, which is still on the disk, is 
called the source program; the machine-language version, which is on the disk also, 
is called the object program.) The ltnkitng Loader copies the object program from 
the disk to the main memory, and also copies into the main memory any subroutines 
that the program requests; then the loader combines the main routine with the 
subroutines, to form a single unit, called the load module. Since the load module 
is a program in machine language and includes both the main routine and the subroutines 
and is in the main memory, the computer can run that program, and does so. That's 
what most computers do. If your computer is old and doesn't have disks, it uses tapes 
or extra cards instead. If your computer was designed mainly for beginning students, 
it doesn't bother using disks or tapes or extra cards; instead, it does all manipulations 
directly in the main memory; such a computer is called a "load-and-go system". If 
your computer uses terminals instead of cards, the procedure is similar to the usual 
card system, except for the very first step: instead of typing the program on cards, 
you type the program on a terminal, and feed the program onto a disk by using an 
edttor, which also helps you make revisions. 

What's the difference between a "compiler" and an "interpreter"? 
A compiler translates from a high-level language into machine language. For 
example, a FORTRAN compiler translates from FORTRAN into machine language. The 
machine-language version of your program is usually stored on a disk; so if you want 
to run the program again, the compiler won't have to re-translate it. An tnterpreter, 
like a compiler, makes the computer obey a high-level language, but by a different 
method. An interpreter looks at a line of your program (that you've typed on a card 
or on your terminal) and makes the computer obey that line; then the interpreter looks 
at the next line, and makes the computer obey that line; etc. Although the interpreter 
makes the computer obey each line, the interpreter never stores a whole "translated 
version" of your program, and therefore doesn't require a disk, and therefore doesn't 
require an editor or a loader. So using an interpreter is usually simpler and cheaper 
than using a compiler...if you want to run the program just once. But if you want to 
run the program many times (or the program contains a loop that will be done many 
times), a compiler will save time, since it produces a translation that can be re-used. 
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OUTLINE OF BASIC 
ms PAGES IN VOL. 1 §& Cl 
functions 


trigonometry: SIN, COS, TAN, ASN, ACS, ATN Sy Gas 
exponents: SQR, EXP, LOG, LGT (or LOG10) 515° G35 
stripping: INT, ABS, SGN 545 ES7 
matrix: ZER,.CON, -1DN, °NUM, TRN; INV; DET 40, C43 
time: TIM (ox TIME); TIMES; GbLE,)-€PUS DAT. DATE C38 
substring: LEFT, MID (or SUBSTR or STR or SEG), RIGHT C39 
string analysis: -. LEN, POS (or IDX or INSTR) C39 
string-number conversion: VAL (or NUM), STR C40 
ASCII conversion: ASC (or ASCII), CHR C40 
other: TAB, RND Sie osZ 
statements 
main I/0: INPUT, PRINT S, 19, C13; “C24, eee 
data I/0: READ, DATA, RESTORE 24, Cao, CA9 
file I/0: OPEN (or FILE), CLOSE, GET, PUT C49 
conditional jumps: IF, ON feel soy C19 
unconditional jumps: GO TO, CHAIN (or LOAD) HY e222 
terminators: STOP, END ey Al Ss 6) 
loops: FOR, NEXT Be, Ges 
subroutines: GO SUB, RETURN 43, C44 
subscripts: DIM, MAT ao; Ue 
other: LET, DEF, RANDOMIZE (or RANDOM), REM (or REMARK) 6, 32, 44 
commands 
major: “LIST, RUN, STOP 3s 6; 22, 040 
log: HELLO (or LOG), CHARGE (or IDNUM), BYE Zs04; Ceeaee 
use BASIC: BASIC, MONITOR, REENTER 2, 12; CUsece ©, Cae 
erase main memory: NEW, SCRATCH, DELETE 25 C2, 2s 
revise main memory: RENAME (or NAME), RES (or RENUMBER) 2, 15, C21, C48 
revise. disk: SAVE, REPLACE, COPY (or PIP), NAME 15, C20, Cag 
examine disk: CAT (or FILES or DIR) 15 
use disk: OLD (or GET or LOAD), MERGE (or WEAVE or APP) 15, C20, C49 
erase disk: UNSAVE (or KILL or PURGE) 15; zt 
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PAGES IN VOL. 3 
unctions 


sine: SIN, DSIN 10,235 
cosine: COS; \DCOs to. 25 
tangent: ATAN, DATAN, ATAN2, DATAN2, TANH, DTANH 196,23 
square root: SQRT, DSQRT, CSQRT PO e2oy ee 
exponential: EXP, DEXP, CEXP 163.255 224 
logarithm: ALOG, DLOG, CLOG, ALOG10, DLOG10 10... 255024 
absolute value: IABS, ABS, DABS, CABS 10,..23 
modulus: MOD, AMOD, DMOD 10) wlio 
other: FLOAT, REAL, AIMAG, CONJG pe a | 
statements ‘ 
main I/O: READ, PRINT tS Sve Lee 
general I/O: READ, WRITE 25 
terminal I/O: ACCEPT, TYPE Deets LS 
jumps: GO TO, IF 45-15 
terminators: STOP, END i, +4 
loops: DO, CONTINUE 16 
subprograms: CALL, SUBROUTINE, FUNCTION, RETURN 26 


type: DIMENSION, DOUBLE PRECISION, COMPLEX, CHARACTER 17, 21, 22 
other: =, DATA, FORMAT te S. he eee 


CS 


DUTIINE, OF COBOL DUTEINE OF TA COMPLETE, COMPUTERS YS TEM 
(showing pages in vol. 3) 
VOLUME PAGE 

IDENTIFICATIGN ei aed hardware VRtae <1) y 
PROGRAM- ID. central processing unit 4015 
AUTHOR. = arithmetic/logic unit 4 14 
INSTALLATION. 46 control unit 4 14 
DATE-WRITTEN. 46 memory 4 42 
DATE-COMPILED. 46 main: core, RAM, ROM 4 43 
SECURITY. 46 auxiliary: drum, disk, tape 4 46 
ENVIRONMENT DIVISION, I/O devices 4 52 
CONFIGURATION SECTION. 31 terminal A 52 
SOURCE -COMPUTER. aL printer 4 54 
OBJECT-COMPUTER. eo) card unit 4 54 
“INPUT-OUTPUT SECTION. 31 plotter 4 55 
SPECIAL NAMES. 48 optical scanner 4 55 
DECIMAL-POINT IS COMMA. 48 audio unit 4 55 
FILE CONTROL. 31 support hardware 4 2 
SELEG! 7..ASSIGN TQ.:... °° 42,. 53 cooling devices 4 2 
DATA DIVISION. power regulators 4 2 
FILE SECTION. 31 off-line equipment Ae 
a tas 42 interfaces a2 
aoe 4D oe DO software 4 11 
MLS Fx hays 53 applications software 6. 4 
ae BR pen 53 system software At? 
WORKING- STORAGE SECTION. 31 assembler 4 12 
Oe ok tes 36,48, 50 high-level languages ye 
PROCEDURE DIVISION. operating system 4 12 
terminal I/0: ACCEPT, DISPLAY 51; 39 loaders: bootstrap, linking 4 12 
file I/0: OPEN, CLOSE, READ, WRITE 42, 48 editor Ae2 
arithmetic : ADD, SUBTRACT, etc. 37 debugger aie 
concerol: GO TO, /IF, PERFORM, STOP RUN 31, 33, 49 graphics subroutine package 4 12 
other: MOVE, SORT 36,. 48, 50 data-base management system 4 12 
printware 4 56 
OUTLINE OF LANGUAGES books 4 56 
newspapers 4:59 
VOLUME PAGE Magazines 4 60 
business catalogues 4 60 
COBOL 590 reports 4 60 
RPG 3/72 brainware aes 
scientific keypuncher 2 43 
FORTRAN /3 1 operator 2 43 
BASIC rere technician 2 43 
PL/I 3 91 programmer 2 43 
PASCAL 3 96 manager aes 
APL 3 86 instructor 4 64 

ALGOL 3°55 

simulation 
GPSS 3 80 


DYNAMO 3 69 
other numeric 


SPSS 3 94 

APT 2 09 
non-numeric 

LISP S75 


SNOBOL 3 82 
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What's the fastest way to alphabetize? 

Alphabetizing is called sorting. To alphabetize in COBOL, just say SORT; to find 
out about the SORT command, read page 53 of volume 3. To alphabetize in FORTRAN, 
you can probably say CALL SORT, because someone in your computer center has probably 
written a subroutine called SORT; ask the people who run your computer center. To 
alphabetize in IBM's version of BASIC, say MAT X$=ASORT(X$), where X$ is the list 
of names you want to alphabetize. To alphabetize on a maxicomputer, you don't even 
have to use a computer language; just say SORT, because your computer's manufacturer 
probably wrote a program called SORT; it's probably written in machine language and 
runs quickly; ask the people who run your computer center. 

Here's the best way to write your own sorting program, in BASIC, on non-IBM 


computers....If the list you want to alphabetize is short, run this program: 

10 DIM x$(150) 

20 READ N.’ nead the data, and call it X$ 

30 MAT READ X$(N) If your computer doesn't 
40 FOR I = 1 TO N-1 understand MAT, say — 
50 FOR J = I TO 1 STEP -1 . 30-FOR I = 1 TON 

60 IF X$(J)<=X$(J+1) THEN 200 31 READ X$(T) 

70 T$=X$ (J) ! 52 NEXT I 

80 X$ (J)=x$ (J+1) pAMEP i ered pene X# and dey: 

90 x$(Je1j=Tg J Meth XP (F+T) 210 FORT = 1 TON 
100 NEXT J a PRINT X$(I) 
200 NEXT. I 212 NEXT I 

210 MAT PRINT X$ } print X$ 

900 DATA 12 


910 DATA SUE, ANN, JOE,ALICE, TED,JILL, FRED, AL, SAM, PAT 

920 DATA SALLY,MIKE 

999 END 

In lines 910 and 920, list the names you want to alphabetize; the example alphabetizes 
SUE, ANN, JOE, etc. In line 900, say how many names you want to alphabetize; the 
example alphabetizes 12 names. Line 10 lets you alphabetize up to 150 names; if 

you want to alphabetize more than 150, retype that line. If you RUN the example, 

the computer will print: 


Here's why that program works. In the example, line 20 makes N be 12; so N is 
how many names are in the list. Line 30 makes X$(1) be the first name (SUE), makes 
X$ (2) be the second name (ANN), makes X$(3) be the third name (JOE), and so on; X$ (N) 
is the last name (MIKE). Line 40 makes I start at 1. Line 50 makes J start at I; 
so I and J are both 1. Line 60 says to compare X$(J) with X$(J+1); since J is 1, 
the computer compares X$(1) with X$(2); in other words, the computer compares SUE 
with ANN. If SUE and ANN were in alphabetical order, the computer would skip from 
line 60 to line 200; but since SUE and ANN are not in alphabetical order, the computer 
proceeds from line 60 to line 70. Lines 70-90 swap X$(1) with X$(2), like this.... 
BEFORE THE SWAP:  X$(1) is SUE; X$(2) is ANN 
AFTER THE SWAP: X$(1) is ANN; X$(2) is SUE 
So after the swap, the list of names is closer to being in alphabetical order. Lines 
100 and 200 assure enough swaps to alphabetize the whole list. Line 210 prants the 
alphabetized list. 
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Shaw § Trimble invented that program in 1963, and called it the Shuttle Sort. 
If the list you want to alphabetize is long, this variation will run faster: 


10 DIM X$(150) 

20 READ N 

30 MAT READ X$(N) 
+31 D=N 
+32 D=INT(D/3)+1 


+50 RORiee tT TO! STEP =D 
+60 IF X$(J)<=X$(J+D) THEN 200 
+70 T$=X$ (J) akphabetize X 
+80 X$ (J)=X$(J+D) par? ee 
+90 X$ (J+D)=T$ us ee 


100 NEXT J 
200 NEXT I 
Poet D> 1 THENS2 


nead the data, and call it X$ 


210 MAT PRINT X$_ } print xX 


900 DATA etc. 
999 END 


} compute the distance, D 
+40 FOR I = 1 TO N-D 


That variation, called the Short Shell Sort, comes from research by Donald Shell 
(in 1959), Hibbard §& Boothroyd (in 1963), Peterson §& Russell (in 1971), Knuth (in 
1973), and myself (in 1978). 


quickly. 


Test your mouth: 


Lines 31-201 form the program's body. 
10 names, the Short Shell Sort is no better than the Shuttle Sort; but if the list 


you want to alphabetize is longer, 


because of this theorem: 


Applying the theoren, we get: 


LENGTH OF THE LIST 


SHORT SHELL SORT'S BODY 


SHUTTLE SORT'S BODY 


10 names time-unit 1 time-unit 

100 names 18 time-units 100 time-units 
1,000 names 324 time-units 10,000 time-units 
10,000 names 5,832 time-units 1,000,000 time-units 


100,000 names 


104,976 


time-units 


100,000, 000 


time-units 


say "Short Shell Sort" ten times, 
If the list you want to alphabetize has only 


the Short Shell Sort is faster than the Shuttle Sort, 


1,000,000 names 1,889,568 time units 
On a small maxicomputer, a ''time-unit'' is about a tenth of a second, 
looks like this: 
DENGIO OF PTHE’ LIST SHORT *SHELE “SORT 'S: BODY 


10,000,000, 000 time-units 
so the data 


SHUTTLE SORT'S BODY 


10 names .1 seconds 1 seconds 
100 names 1.8 seconds 10.0 seconds 
1,000 names 32.4 seconds 16.7 minutes 
10,000 names 9.7 minutes 1.2 days 
100,000 names 2.9 hours 3.8 months 
1,000,000 names 2.2 days 31.7 years 


The Short Shell Sort is faster than the Shuttle Sort, because the Short Shell Sort 
puts the list into "roughly" alphabetical order, before worrying about the fine details. 
To put the list into roughly alphabetical order, the Short Shell Sort begins by 
comparing X$(1) with X$(1+D), where D is a large distance. It also compares X$(2) 
with X$(2+D), and X$(3) with X$(3+D), and so on. (The comparisons occur in line 60; 
the distance D is defined in lines 31-32.) After comparing each X$(J) with X$(J+D), 
the computer decreases D and goes through the procedure again; since D is smaller, 
the computer is doing a more detailed job of putting the list into alphabetical order. 
D keeps decreasing (in line 32), and the alphabetizing gets finer and finer, until D 
is 1, which makes the computer alphabetize exactly. 


C8 


If the list you want to alphabetize is very long, you can speed the program even 
further by deleting lines 50 and 100 and inserting extra lines: 
10 DIM x$(150) 
20 READ N nead the data, and call it X$ 
30 MAT READ X$(N) 
. ea ae } compute the distance, D 


40 FOR I = 1 TO N-D 


+60 IF X$(I)<=X$(I+D) THEN 200 
+70 T$=X$ (I+D) 
S oy compute T$ and J 
+80 X$ (J+D) =X$ (J) alphabetize X$ 
+81 J=J-D 
+82 IF J<1 THEN 90 change X$(J+D), while changing J 
+83 IF T$<X$(J) THEN 80 ; 
90 X$ (J+D) =T$ 
200 NEXT I 


201. 1F° De) THEN «32 
210 MAT PRINT X$ } print X$ 
900 DATA etc. 
999 END 
That program, called the Long Shell Sort, comes from further research by Hibbard 
(in 1963) and myself (in 1978). If the list has more than 100 names, the Long Shell 
Sort runs about 20% quicker than the Short Shell Sort. 
Problem: write a program that alphabetizes a phone directory. 
Solution: suppose you want to alphabetize Sie little phone directory.. 
NAME PHONE NUMBER Ace Ndaye¢ 
Mary Smith 277-8139 
John Doe 513-9134 
Russ Walter (617) 266-8128 
Information 555-1212 
Use one of the alphabetizing programs. Type the DATA like this: 
900 DATA -4 
910 DATA ''SMITH MARY 277-8139","DOE JOHN 513-9134" 
920 DATA ''WALTER RUSS (617) 266-8128", "INFORMATION 555-1212" 
The computer will print: 
DOE JOHN 513-9134 
INFORMATION 555-1212 
SMITH MARY 277-8139 
WALTER RUSS (617) 266-8128 
Problem: write a program that puts a list of numbers into increasing order. For 
example, if the numbers are 51, 4.257, -814, 62, and .2, make the computer print.... 
-~814 


62 
Solution: use one of the alphabetizing programs; but in the DATA statement, put 
the numbers instead of strings; and remove the dollar signs (say X instead of X$, 
and say T instead of T$). 
Problem: write a program that puts a list of numbers into decreasing order. 
Solution: write a program that puts the list of numbers into increasing order; 
but “changes <!" taniolls 
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Comment: in 1961, Hoare invented a different way to alphabetize, called Quicksort; 
in 1965, Scowen improved it, and called the new version Quickersort; in 1968, Singleton 
improved it even further; and from 1969 to 1971, Peto §& van Emden §& Frazer § McKellar & 
Wheeler suggested further improvements. If you multiply the length of the list by 10, 
the body of Quicksort (and its improvements) will take only 13 times as long, instead 
of 18 (for the Short Shell Sort and the Long Shell Sort) or 100 (for Shuttle Sort). 

But though Quicksort runs quickly, it contains many lines, and your fingers will 
probably fall off before you finish typing the program. So why bother? 


How can you make BASIC go faster? 
On a Radio Shack computer (with Level II or Disk BASIC), these.tricks will make the 
computer run more quickly.... 
Instead of exponents, use multiplication: 


SLOW FASTER 
50 Y=Xt2 50 Y=X*X 
Combine statements, to form a single line: 
SLOW FASTER 
50 A=3 50 "A=32 B=7 
60 B=7 


Warning: an IF statement cannot be combined with a later statement. 
CANNOT BE COMBINED 
SOere T=<1°THEN® 200 


60 B=7 
If a number contains a decimal point and is in a loop, turn the number into a variable: 
FASTER 
SLOW 49 C=3.1 
50 FOR I = 1 TO 1000 50 FOR I = 1 TO 1000 
60 S=S+3.1/I 60 S=S+C/I 
FORNEXT “I 70 NEXT I 
Omit the variable after NEXT (unless the FOR...NEXT loop contains another FOR...NEXT 
loop): 
SLOW FASTER 
50) NEXT 1 50 NEXT 


If your program doesn't involve decimals or large numbers, put this statement at 
the beginning of your program: 
1 DEFINT A-Z 
It tells the computer that every numeric variable will be an integer between -32768 
and 32767. 

If your program involves only a few decimals or large numbers, put this statement 
at the beginning of your program — 
1 DEFINT A-Z 
—and put an exclamation point after each variable that stands for a decimal or large 
number, like this: 
50 X!=9.5 
60 Y!=5931742 
COmre eS.) 


C10 


Using those tricks, you can make the Long Shell Sort run even faster, by rewriting 
it like this: 
10 DEFINT A-Z: DIM X$(150): READ N 
30 FOR’ I)= 1 TO)N: READ? X$(1)¢eNEXT ie DEN 


32 D=D/3+1 

40 FOR I = 1 TO N-D 

60 IF X$(I)<=X$(I+D) THEN 200 

70 T$=X$ (I+D): J=I1 

80 J=J-D: IF J>O0 THEN IF T$<X$(J) THEN 80 
90 X$ (J+D)=T$ 

200 NEXT 


201 IF D>1 THEN 32 
210 FOR I = 1 TO N: PRINT X$(1): NEXT 
900 DATA etc. 
Line 32 omits INT, because line 10 says DEFINT. 
Some of those tricks work on other computers too. Try them. 


What's the fastest way to shuffle a deck of cards? 
Here are two popular ways to shuffle a deck: 


THE IDIOT METHOD 
10 RANDOMIZE 

20 DIM C$(52) 

30 MAT READ C$ 

40 FOR I = 1 TO 52 


1f your computer doesn't understand MAT, say this: 
S04FOR Tse 15f0"s2 
3] READ C$(T) 


50 R=1+INT(RND*52) ne On Radio Shack computers, Say: 
60 IF C$(R)="""' THEN 50 50 R=RND (52) 

70 PRINT C$(R) 

80 Cs(Rj="" 

90 NEXT I 


100 DATA AC, HAC zeta MSc" (M6 7c" SC", "oC "100" JC, OC. KC 
110 DATA AD,"2D"', "3D", "4D", "SD", "6D", "7D", "8D", "9D", "10D", JD, QD, KD 
120 DATA AH, "2H", "3H", "4H", SH MGHI 7H ISH OH 17 OH, JH, QH, KH 
130 DATA AS, "2S", "3S", "4S VSS" Mest 7S tas wos 79S", JS,QS, KS 
140 END 


THE PROFESSIONAL METHOD 
10 RANDOMIZE 

20 DIM C$(52) 

30 MAT READ C$ 


+40 FOR, In=ic52.TO TESTER s=3 On Radio Shack computers, say: 
+50 R=1+INT(RND*1I) 50 R=RND(I) 

70 PRINT C$(R) 
+80 C$ (R)=C$ (1) 

90 NEXT I 


100 DATA AC, "20", '3C't, UACH, 56" HEC, "ICM NSC", OGM nel. 16, 0G, KC 
110 DATA AD, "2D", "3D", "4D", "SD", "6D", "7D", "BD", "9D", "10D", JD,QD, KD 
120 DATA AH, "2H", "3H", "4H", "SH", "6H", "7H", "SH", "OH", "10H", JH, OH, KH 
130 DATA AS, "2S", "3S", "4S", "SS", "6S, 7S", "Est! tgs! "10S", JS,QS,KS 
140 END 


The idiot method is easier to understand; the professional method is briefer and 
runs more quickly. 


Git 


First, let's look at the idiot method. Line 20 reserves space in the computer's 
memory, to hold 52 cards: the first card will be called C$(1); the next card will 
be called C$(2); the last card will be called C$(52). Line 30 reads the cards, in 
Oraer. tromithe DATA: in the DATA, AC means "Ace of Clubs"; '2C" means ''2.of Clubs", 
and "KS" means ''King of Spades''. Lines 40-90 shuffle the deck; here's hhow....Line 40 
makes the computer do the loop 52 times~—once for each card. Line 50 makes the 
computer pick a random integer from 1 to 52; that integer represents a card-in the 
deck. Line 70 makes the computer print that card, so the computer prints a random 
card. Line 80° makes that card "disappear" from the original deck, so it won't get 
picked again. Line 60 says: if the card the computer is thinking of picking has 
disappeared already, go back to line 50, which picks a different card instead. So 
altogether, the program prints the deck of cards, but in a random order, and so that 
no card gets picked more than once. 

The idiot method is slow, because it contains two loops. One loop is the FOR...NEXT 
loop, lines 40-90. The other loop-is the IF...THEN loop, lines 50-60. The IF...THEN 
loop is inside the FOR...NEXT loop; whenever you_write a program that contains a loop 
inside a loop, it runs slowly. 

The professional method is briefer, because it omits line 60; and it is much faster, 
because it eliminates the IF...THEN loop. Here's how it works....Line 20 reserves 
space for 52 cards. Line 30 reads the cards, in order. Lines 40-90 print the deck, 
shuffled, by doing the following activity, 52 times: remove a card from the deck 
(and PRINT that card), and move the deck's bottom card to the "hole" left by the 
removed card. Each time the computer does that activity, the deck gets smaller: 
first there are 52 cards to choose from, then 51 remain, the 50 remain, etc., until 
finally all the cards have been removed and the deck disappears. Line 40 says the 
size of the deck will be 52, then 51, then 50, etc. Lines 50 and 70 make the computer 
pick a random card from the deck and PRINT that card. Line 80 moves the deck's 
bottom card to the "hole'' left by the removed card. 

Most textbooks on BASIC mention just the idiot method. Perhaps that says something 
about the authors? 
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What's the fastest way to draw a graph and label each point? 
On page 21 of volume 1, you'll find a program that graphs Y=Xt2. The program prints 
asterisks: if you take a pencil and draw a line from asterisk to asterisk to asterisk, 
you'll get a pretty graph. 
Here's a fancier program, that can graph any function, and that also prints the 
numbers that are the coordinates of each point: 
10 DIM Y(200) 
20 PRINT "WHAT'S THE SMALLEST X YOU WANT TO GRAPH"; 
30 INPUT Xl 
40 PRINT ''HOW MANY VALUES OF X DO YOU WANT TO GRAPH"; 
50 INPUT N 
60 PRINT "HOW FAR APART DO YOU WANT THE VALUES OF X TO BE"; 
70 INPUT D 
80 S=1E38 
90 L=-1E38 
100 X=X1 
110 FOR I = 1 TON 
120 Y=Xt3-SQR(X) 
130 Y(1)=Y 
140 IF Y>=S THEN 200 
150 S=Y 
200 IF Y<=L THEN 300 
210 L=Y 
300 X=X+D 
310 NEXT I 
320 W=72 
330 F=(W-4)/(L-S) 
340 X=X1 
350 FOR I = 1 TON 
360 T=(Y(1)-S)*F+1.01 
370 IF T<16 THEN 400 
380 PRINFHX; YOR) 5 TAB CT) 52130 
390 GO TO 500 
400 PRINT TABCT) S35 Xs) 
500 X=X+D 
510 NEXT I 
520 END 


Line 10 lets the computer plot up to 200 points. If you want to plot more than 200 


points, retype line 10: 
Lines 20-70 ask you which values of X you want to plot. Lines 80-310 compute S, L, 


and the Y values, as follows.... 
Line 120 computes each value of Y. In the example, line 120 says Y is Xt3-SQR(X); 
if you want to graph a different function, retype that line. So if you want to graph 


Y=Xt2, line 120 should say Y=Xt+2. If you want to graph some DATA, line 120 should say 


READ Y, and _you must type a DATA statement containing the values of Y. 
Lines 80-90 and 140-210 set S equal to the smallest Y value, and set L equal to the 


largest. 

Line 320 sets W equal to the terminal's width. That line assumes your terminal can 
type 72 characters per line. If your terminal cannot type 72 characters per line, 
retype line 320. For example, if your terminal is narrow, and types only 64 characters 
per line, you should say that W=64. If your terminal (or printer) can type 132 
characters per line (and if your version of BASIC can handle 132 characters per line), 
you can say that W=132. 

Line 330 computes a "scaling factor", to shrink the values of Y, so they will fit 
on the terminal's paper or screen. The -4 is for safety, in case your computer does 
a bad job of rounding, or in case your terminal acts crazy when it gets near the right 
margin. 


LB 


Lines 340-510 draw the graph, as follows....Line 360 uses the scaling factor (F) 
to scale down the Y value, so it will fit on the paper; the 1.01 is for safety, in 
case your computer does a bad job of rounding, or in case your terminal acts crazy 
near the left margin. The T that line 360 computes tells the computer how many spaces 
to Tab over, when it prints an asterisk on the graph. Line 370 checks whether T 
is less than 16. If T is less than 16, the asterisk will be near the left margin, 
so the computer must print the asterisk before printing the coordinates; that's what 
happens in dine 400.” But if T is wot less than 16, the asterisk will be closer to 
the right margin, so the computer can print the asterisk after printing the coordinates; 
that's what happens in line 380. 

If your computer can handle fancy IF and INPUT, you can write the program more 
briefly, like this: 
10 DIM Y(200) 
20 INPUT ''WHAT'S THE SMALLEST X YOU WANT TO GRAPH"; X1 
40 INPUT '"'HOW MANY VALUES OF X DO YOU WANT TO GRAPH"; N 
60 INPUT ''HOW FAR APART DO YOU WANT THE VALUES OF X TO BE"; D 
80 S=1E38: L=-1E38: X=X1 
110 FOR I = 1 TON 


120 Y=X+3-SQR(X) 
130 Y(I)=Y 

140 IF Y<S THEN S=Y 
200 IF Y>L THEN L=Y 
300 X=X+D 

310 NEXT I 


320 W=72: F=(W-4)/(L-S): X=X1 
350 FOR I = 1 TON 


360 T=(Y(1) -S)*F+1.01 

370 IF AT<16 THEN PRINT TART) Se exsY (Ly) ELSEePRINT~X3 ¥-CE)s-TABCT) pe" 
500 X=X+D 

510 NEXT I 


520 END 
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What's the fastest way to make the computer play tick-tack-toe? 
This program makes the computer play tick-tack-toe, well enough so that it never loses: 
LOSPRING, ULET NS PLAY: TICK-TACK<fOE 8 


print the 4nstructions a 


the computer's 44st move 


the computer's second move 
the computer's third move 


the computer's fourth move 


the computer's §446th move 
180 


Subroutine, to show the 
computer's move. and get 
the human's 


the human erred, so 


the computer wrns 
Here are two runs: 


LET'S” PLAY <TICK=TACK-TOE: 
THE BOARD IS NUMBERED: 


I MOVE TO 9 


WHERE DO YOU MOVE TO? 8 
I MOVE TO 1 
WHERE DO YOU MOVE TO? 
I MOVE TO 3 
WHERE DO YOU MOVE TO? 
QO 2 AND WIN 


~PRINT 


PRINT "THE BOARD IS NUMBERED: 
PRINT " 
PRINT "! 
PRINT "I MOVE TO'";9 
"WHERE DO YOU MOVE TO"; 
INPUT S 
DEF FNM(X)=X-4+4*SGN(8.5-X) 
C=FNM(S+1) 
GO SUB 1000 
C=FNM(S+3) 
GO SUB 1000 
C=FNM(S+6) 
IF S/2=INT(S/2) THEN 2000 
GO SUB 1000 
PRINT 'I MOVE TO"; FNM(S+4) 
PRINT "THE GAME IS A DRAW" 
STOP 
0 PRINT "I MOVE TO";C 
0 PRINT "WHERE DO YOU MOVE TO"; 
0 INPUT H 
0 IF H<>FNM(C+4) THEN 2000 
0 RETURN 


0 END 


THE BOARD IS NUMBERED: 


I:MOVE"1O--9 
HERE DO YOU MOVE TO? 


I MOVE TO 2 
WHERE DO YOU MOVE TO? 
I MOVE TO 4 
WHERE DO YOU MOVE TO? 
I MOVE TO 7 


Let PEAY STICK-TACK-TOE- 


1 
8 
7 


2 
iS 
6 


PRINT ''I MOVE TO"; FNM(C+4);''AND WIN" 


3! 
4AM" 
Sul 


WHERE DO YOU MOVE TO? 
EoMOVE- TO" 5 
THE GAME IS A DRAW 
Line 10 explains the program's purpose. Lines 20-40 say that the center square 
is called 9, and the other squares are numbered from 1 to 8, clockwise. Line 50 makes 
the computer begin, by taking the center. Lines 60-70 get the human's Starting Move, 
and call ites, 
Line 80 defines FNM(X) as roan 


(eS 8 Oe if i a a - = 
Lied) Siete ft 
1§ X<8&.5, rat oe 
FNM(X) 4& the same as X. ree Ash X-8. 
According to that table, FNM(X) is 1, then 2, then 3, then 4, then 5, then 6, then 7, 


then 8, then 1, then 2, etc. Those are the numbers you see if you go around the 
tick-tack-toe board, clockwise. 


X: 
FNM(X) : 


CLS 


Warning: if you have a Radio Shack computer, you must buy the minifloppy disks 
in order to use DEF. If you don't want to buy them, you must delete line 80 and 
rewrite lines 90, 110, 130, 160, 1030, and 2000. 

Line 90 says the computer's second move should be FNM(S+1). In other words, the 
computer should look at the human's Starting Move (S), and move 1 position further 
clockwise. For example, if the human's Starting Move was 4, the computer should 
move to 5; if the human's Starting Move was 7, the computer should move to 8; if 
the human's Starting Move was 8, the computer should move to 1. 

Line 100 makes the computer do subroutine 1000, which works as follows. Line 1000 
prints the computer's move, C. Lines 1010-1020 get the human's move, H. Line 1030 
checks whether the human has blocked the computer from winning. To block the 
computer from winning, :the human must always move to the opposite square from 
the computer. For example, if the computer moves to 1, the human must move to 5 
(since the computer took the center, 9, at the beginning of the game); if the 
computer moves to 2, the human must move to 6; if the computer moves to 3, the 
human must move to 7. In other words, the human must move to FNM(C+4). Line 1030 
says: if the human did not move to FNM(C+4), skip to line 2000, which tells the 
computer to move to that square and win. 

Line 110 says the computer's next move should be 3 positions clockwise from S. 
Line 130 says the computer's fourth move should tentatively be 6 positions clockwise 
from S; but if S is even, the computer goes from line 140 to line 2000, which makes 


it move differently instead and win. 
That program is my improvement of a method developed by Kemeny § Kurtz. 


If you want the computer to play tick-tack-toe more cleverly —if you want the 
computer to set traps, and let the human go first, and print pretty pictures of the 
board after each move —make the program longer. Warning: the Surgeon General has 
determined that working on tick-tack-toe may be hazardous to your mental health. 

Here's the most famous trap. 


Xerxes (the smart player) begins by taking the corner: 


_The Opponent thinks "the center is usually best": 


Xerxes takes the opposite corner: 
x 
x 


The Opponent thinks "corners are usually better than side squares": 


0 


Xerxes takes the opposite corner: ae 
o1'xX 


Now the Opponent is trapped, and will lose. 
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RANDOM-ACCESS FILES 


What's a random-access file? 
On a disk, you can store two kinds of data files. The simple kind is called a 
sequenttal-aecess data file; the complicated kind is called a random-access data file. 
In volume C1, pages C49 and C50 explained sequential-access data files. Now let's 
look at random-access data files. 

Though more complicated than sequential-access data files, random-access data files 
have an advantage: they let you skip around. In a sequential-access data file, you 
must look at the first piece of data, then the second, then the third, etc. Ina 
random-access data file, you can look at the eighth piece of data, then skip to the 
eleventh, then hop back to the third, then skip to the sixth, etc. 


Putting data into the file 
This program creates a random-access data file, called SUE. The program makes the 
8th piece of data in SUE be "I LOVE LUCY", the 50th piece of data in SUE be 
"PLEASE WASH MY CAR", and the 5th piece of data in SUE be "DON'T PICK YOUR NOSE IN PUBLIC"'. 


PDP-11 WITH BASIC-PLUS PDP-20, AND PDP-11 WITH BASIC-PLUS-2 
S OPEN "SUE" AS FILE 1 6 DIM #1, X$(50)=30 
6 DIM #1, X$(50)=30 7 OPEN "SUE" AS FILE 1, VIRTUAL 
10 X$(8)="I LOVE LUCY" 10 X$(8)="I LOVE LUCY" 
20 X$(50)="'PLEASE WASH MY CAR" 20 X$(50)=""PLEASE WASH MY CAR" 
30 X$(6)="DON'T PICK YOUR NOSE IN PUBLIC" 30 X$(6)="DON'T PICK YOUR NOSE IN PUBLIC" 
35 CLOSE 1 35 CLOSE 1 
RADIO SHACK 
PDP-10 5 OPEN TRY 1 SUEY 
5 FILE:1, "SUE$30" 6 FIELD 1, 30 AS X$ 
10 SET:1, 8 10.LSET X$="I LOVE LUCY" 
11 PRINT:1, "I LOVE LUCY" PA ya aa 
20 SET:1, 50 20 LSET X$="PLEASE WASH MY CAR" 
21 PRINT:1, "PLEASE WASH MY CAR" Pi PUT 1, 50 
30 SET:1, 6 30 LSET X$="DON'T PICK YOUR NOSE IN PUBLIC" 
31 PRINT:1, "DON'T PICK YOUR NOSE IN PUBLIC"31 PUT 1, 6 
35 END 35 CLOSE 1 


Lines 5 and 6 of those programs mention the numbers 50 and 30, because SUE's last 
item is the 50th, and because the longest item in SUE has 30 characters. 
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Getting data from the file 
This program makes the computer tell you what SUE's 8th item is. 


PDP-11 WITH BASIC-PLUS PDP-20, AND PDP-11 WITH BASIC-PLUS-2 
5 OPEN "SUE" AS FILE 1 6 DIM #1, X$(50)=30 

6 DIM #1, X$(50)=30 7 OPEN ''SUE'"'t AS FILE 1, VIRTUAL 
10 PRINT X$(8) 10 PRINT X$(8) 

35 CLOSE 1 . 35. CLOSE 1 

PDP-10 RADIO SHACK 

5 FILE:1, "SUE$30" 5 OPEN "R'",1, "SUE" 

10 SET:1, 8 6 FIELD 1, 30 AS X$ 

11 INPUT:1, x$ L0-GET 1. 8 

12 PRINT x$ 11 PRINT x$ 

35 CLOSE 1 35 CLOSE 1 


Tricky points 
Here are additional details about random-access data files. 


PDP-11 AND PDP-20 

If SUE contains numbers instead of strings, line 6 should say: 
6 DIM #1, X(50) 

If SUE contains strings and numbers, line 6 should say: 

6 DIM #1, X$(50)=30, Y(50) 


PDP-10 

If SUE contains numbers instead of strings, line 5 should say: 

5 SFiLE:1;. "SUES" 

If you ask for LOF(1), the computer will give you the length of file 1. In the 
example about SUE, if you say— 

S2-PRINF LOF(1) 

the computer will print 50. 


RADIO. SHACK 

If you want SUE to contain patrs of strings, begin like this: 

5°OPEN/ "RY 134 SUE" 

G FIEUDCI4 S@“AS XS, 4-AS YS 

10 LSET X$="I LOVE LUCY": LSET Y$="WOW!" 

it PUT. 7S 

etc. 

A random-access file must contain strings, not numbers; if you want to store numbers, 
you must convert them into strings. 
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CREATE YOUR OWN DATA BANK 


How to put the data bank into main memory 
This program creates a data bank. In the data bank, you can store information about 
love, death, your friends, your enemies, your business, birthdays, bills, appointments, 
and whatever else bothers you. After storing information in the data bank, you can 
peek at the information, change it, expand on it, delete it, or do whatever else 
strikes your fancy. The program has four parts. 


PART Ji... SET UP? THE, DATA BANK 


AlLLow 100 topics, and corresponding data. 
10 DIM T$(100) ,D$(100) 


At the beginning, the number of topics in the data bank 44 zero. 
20 N=0 


PART 2: THE MAIN ROUTINE 


Ask the human for a toptre. 

30 PRINT 

40 PRINT "WHAT TOPIC INTERESTS YOU?" 

50 PRINT ''(IF YOU'RE NOT SURE, TYPE A QUESTION MARK)" 
60 INPUT T$ 


14 the human 44 confused, go to 1000. 
70 IF T$="?'"' THEN 1000 


Hunt through the data bank, to find that topic. If the topic is found, go to 3000. 
80 FOR I = 1 TON 

90 IF T$=T$(1I) THEN 3000 

100 NEXT I 


That topic is not in the data bank. 

110 PRINT "I DON'T KNOW ANYTHING ABOUT THAT TOPIC." 
120 PRINT "WOULD YOU LIKE TO TEACH ME"; 

130 INPUT A$ 

140 IF A$<''y'' THEN 30 


Insert that topic into the data bank. 
150 N=N+1 

160 T$(N)=T$ 

170 PRINT ''TELL ME ABOUT '';T$ 

180 INPUT D$(N) 

190 GO TO 30 
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Patt oso TELE THE HUMANS WHAT? TOPICS SARE INCTHE “DATA (BANK 


1% the data bank 44 empty, go to 2000. 
1000 IF N=0 THEN 2000 


The data bank contains topics. List them. 

1010 PRINT "I KNOW ABOUT THESE TOPICS:"' 

1020 FOR 1-= i+ TON 

1030 PRINT T$(I), 

1040 NEXT I 

1050 PRINT 

1060 PRINT ''PICK ONE OF THOSE TOPICS, OR TEACH ME A NEW ONE." 
1070 GO TO 30 


The data bank 4s empty. 

2000 PRINT ''I DON'T KNOW ANY TOPICS YET."' 
2010 PRINT ''MY MIND IS. STILL BLANK." 

2020 PRINT "PLEASE TEACH ME A NEW TOPIC." 
2030 GO TO 30 


PAPI Gee DE, REQUESTED TOPIC 1S JIN THE DATA BANK 


Tell the human about the topic. 
3000 PRINT "HERE'S WHAT I KNOW ABOUT '"';T$;":" 
3010 PRINT D$(I) 


Ask the human whether to change that sngormation. 
3020 PRINT ''DO YOU WANT TO CHANGE THAT INFORMATION"; 
3030 INPUT A$ 

3040 IF A$<''Y"' THEN 30 


The human wants to change that tnformation. 

3050 PRINT "OKAY. I'VE ERASED THAT INFORMATION ABOUT "';T$;''.'' 
3060 PRINT "DO YOU WANT TO GIVE ME NEW INFORMATION ABOUT "';T$; 
3070 INPUT A$ 

3080 IF A$<''Y'' THEN 4000 


Keep the topic in the data bank, but change the data about rt. 
3090 PRINT "'TELL ME ABOUT ";T$ 

3100 INPUT D$(1) 

3110 GO TO 30 


Delete the topic from the data bank. 
4000 T$(1I)=T$(N) 

4010 D$(I)=D$(N) 

4020 N=N-1 

4030 GO TO 30 

9999 END 


To run that program on a microcomputer (such as Radio Shack's), insert these lines: 
1 DEFINT A-Z 
11 CLEAR 0: CLEAR MEM-200 

That program stores the topics in chronological order. In other words, if you feed 
it information about SUE, and then information about CAROL, it will let T$(1) be SUE, 
and let T$(2) be CAROL. 
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Instead of chronological order, you might prefer two other orders: alphabetical 
order, and tree order. For example, suppose you feed the computer information about 
SUE, then CAROL, then ALICE, then ZELDA, then JANE, then FRED, then LOU, then RON, 
then BOB. Here's what the computer's memory would look like, in each of the three 
orders: 


CHRONOLOGICAL ORDER ALPHABETICAL ORDER TREE ORDER 
ET seer a tae ae 
SUE ALICE N 


CAROL BOB <0. ee 

ALICE CAROL 3CAROL E 

ZELDA FRED a er 
JANE JANE + ALICE 6 JANE 2RO °ZELDA 
FRED LOU Ny Lx 

LOU SUE 10R0B 7FRED 8&LOU 


RON RON 
BOB ZELDA 

In tree order, the top of the list holds the alphabet's middle letter, N. Two 
arrows point down from N: the left arrow points to the names that come alphabetically 
before N (such as CAROL, ALICE, JANE, BOB, FRED, and LOU); the right arrow points to 
the names that come alphabetically after N (such as SUE, RON, and ZELDA). Similarly, 
two arrows point down from CAROL: the left arrow points to the names that come 
alphabetically before CAROL (such as ALICE and BOB); the right arrow points to names 
that come alphabetically after CAROL (such as JANE, FRED, and LOU). Although you 
cannot "draw an arrow'’ in the computer's memory, you can store this table, which 
serves the same purpose: 
TOPIC WHERE ITS LEFT ARROW POINTS WHERE ITS RIGHT ARROW POINTS 


IN 3 2 
2SUE 9 5 
3CAROL 4 6 
"ADICE "0 10 
SZELDA 0 0 
6 JANE 7 8 
7FRED 0 0 
8Lou 0 0 
IRON 0 0 
1&oB 0 0 


The table's left column is in chronological order, but the other columns give 
information about alphabetizing. So a tree combines chronological order with 
alphabetical order. 

Each of the three orders has its own advantages and disadvantages. In chronological 
order, you can quickly tnsert a new name —just tack the name onto the bottom of the 
list —but to find a name in the list is slow, since the list looks disorganized. In 
alphabetical order, you can quickly find a name in the list, since the list is 
in alphabetical order; but to tnsert a new name into the list is slow, since the only 
way to insert a new name is to shove other names out of the way, to make room for it. 
In tree order —a happy compromise —you can insert a name quickly (almost as quickly 
as chronological order), and you can find a name quickly (almost as quickly as 
alphabetical order), but you need extra memory, to store the tabe that shows where 
the arrows point. 

Which order is best? The stmplest is chronological order. The fastest for finding 
information is alphabetical order. But since alphabetical order is ridiculously 
Slow at inserting and deleting, your best bet for most applicattons is tree order. 

In other words, if your data bank will be stable, use alphabetical order; but if 
your data bank will be continually changing (because of insertions and deletions), 
use tree order instead. 


C21 


The programs for alphabetical and tree order are almost the same as the program 
chronological order. Change just these sections: 


for 


84 I 
86 I 
90)-1 
O28 
94 L 
G 


102 


150 
152 
154 
156 
158 


170 
180 
190 


Subroutine....Hunt {02 T$ in the data’ 
. Let I = the position of TS; 
Let 11 = the position of the topic 
that points to T$; Let J = 1 44 the 
auiow pointing to T$ points to the 
Left, but Let J = 2 4§ that arrow 
points to the right. 


bank 


that topic. 
go to 3000. 
80 L=0 

82 H=N+1 


NEW SECTIONS, FOR ALPHABETICAL ORDER 


Hunt through the data bank, to find 
14 the topic 4’ found, 


=INT((L+H+1)/2) 

F I=H THEN 110 

F T$=T$(1) THEN 3000 
F T$<T$(1) THEN 100 
=I 

O TO 84 


GO TO 84 


Insert that topic into the data bank. 


N=N+1 

FOR J = N TO I+1 STEP -1 
T$ (J) =T$ (J-1) 
D$ (J) =D$ (J-1) 

NEXT J 


160 T$(I)=T$ 


PRINT ''TELL ME ABOUT ";T$ 
INPUT D$(1) 
GO TO 30 


Dekete the topic from the data bank. 


N=N-1 

FOR J = 1 TON 
T$ (J) =T$ (J+1) 
D$ (J) =D$ (J+1) 

NEXT J 

GO TO 30 

END 

P(A,1)=P(N, 1) 

P(A,2)=P(N, 2) 

N=N-1 

GO TO 30 


the data bank, Let I = zero. 


5000 
5010 
5020 
5030 
5040 
5100 
5110 
5120 
9999 
9999 


I=1 

IF T$=T$(I) THEN 5999 
J=1 

IF T$<T$(I) THEN 5100 
J=2 

I1=I 

I=P(I,J) 

IF I>0 THEN 5010 
RETURN 

END 


14 T$ 48 not in 


NEW SECTIONS, FOR TREE ORDER 


AlLow 100 topics, and corresponding data, 
and connesponding pointed arrows (pointers) . 
10 DIM T$(100),D$(100) ,P(100, 2) 


At the beginning, the onky topic in the 
data bank 4& "N". 

12 T$(1)="N" 

14 P(1,1)=0 

16 P(1,2)=0 


At the beginning, the number of topics in 
the data bank 4b 1. 
20 N=1 


Hunt through the data bank, to find the 
topic. 1 the topic 4s found, go to 3000. 
80 GO SUB 5000 

90 IF I>0 THEN 3000 


Insert that topic into the data bank. 
150 N=N+1 

160 T$(N)=T$ 

170 PRINT "TELL ME ABOUT '';T$ 

180 INPUT D$(N) 

182 P(N,1)=0 

184 P(N,2)=0 

186 P(1I1,J)=N 

190 GO TO 30 


14 the data bank 45 empty (aside 410m "N"), 
go to 2000. 
1000 IF N=1 THEN 1000 


The data bank contains topics. List them. 

1010 PRINT "I KNOW ABOUT THESE TOPICS:" 

1020 FOR I = 2 TON 

1030 PRINT T$(I), 

1040 NEXT I 

1050 PRINT 

1060 PRINT ''PICK ONE OF THOSE TOPICS, OR 
TEACH ME A NEW ONE," 

1070 GO TO 30 


Ldetete the topic from the data bank. 


4000 P(I1,J)=P(I,1) 
4001 A=I 
4002 B=P(I, 2) 


(4003 IF B=0 THEN 4008 


4004 T$=T$(B) 

4005 I=I1 

4006 GO SUB 5010 

4007 P(I1,J)=B 

4008 IF N=A THEN 4020 
4009 T$=T$(N) 

4010 GOSUB 5000 

4011 P(I1,J)=A 

4012 T$(A)=T$ 

4013 D$(A)=D$(N) 
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Although the program are long to type, they run more quickly than chronological 
order, because their loops are done fewer times. 


How to put the data bank onto disk 
The data-bank programs I've shown you all have a "flaw'': when you turn the power 
off, the data bank self-destructs. To make the data bank immune to power failure, 
you must store it on a disk, instead of in the main memory. Here's how to store 
it on a disk, if you have a Radio Shack computer. 

Warning: tf you try to understand the details of the followtng programs, you'll 
go tnsane, because Radio Shack uses a confustng way to handle random-access files. 
Nevertheless, tf you tnstst on trying, use these hints: MKIS$ ts a functton that 
turns an integer into a strings CVI ts a function that turns a string tnto an tnteger; 
LINE INPUT ts a command that makes the computer tnput a whole line, even tf the ltne 
contains commas. 

To put a data bank onto the disk, first run this program, which sets up the data 
bank and puts just "'N'" into it. 


Open a MASTER data 4i€e3 and open a data file that will contain the vakue of N. 
10 OPEN "R'",1,"MASTER/DAT": OPEN 'R",2,''N/DAT" 


Let each topic be 60 bytes Long. Let the data about a topic be 191 bytes Long. 
11, FiIELD.1, 60 AS TF$,,191 AS DFS, 2 -AS PS(1},02 AS PS(23:" FIRiOs2. 92 noe 


Let the first topic be "N", and Let its pointers both be 0. 
12 LSET TF$="N": LSET P$(1)=MKI$(0): LSET P$(2)=MKI$(0): PUT 1 


So far, the number of topics 4b just |. 
20 LSET N$=MKI$(1): PUT 2 


CLose the frbles. 
Zl CLOSHT 1: CLOSE 2 


After you've run that program, never run tt agatn. If you run it again, you'll 
erase most of the data bank! 

To use the data bank, run this five-part program, which creates and manipulates 
a tree onvthe disk: 


PART 1: INTRODUCTION ® 


— AkLow Antegers, and Space for strings. 
1 DEFINT A-Z: CLEAR 1000 


Open the files and their fields. 
10 OPEN. “R'*, 1, "MASTER) DAT’ >" OPEN "RPS 20 "NY DAT" ' 
1T FIELD 1,° 60 AS’ TPS, 191° AS DES; 2° AS PSL jor eau Siam reuse. tc Ao NS 


Get N from its frLe. 
20 GET 2: N=CVI(N$) 


PART 2: THE MAIN ROUTINE 


Ask the human for a topic. 

50 PRINT: PRINT "WHAT TOPIC INTERESTS YOu?" 

50 PRINT "(IF YOU'RE NOT SURE, TYPE A QUESTION MARK)" 
51 PRINT ''(IF YOU WANT TO END, TYPE THE LETTER N)"' 

60 LINE INPUT TI$ 


14 the human is confused, go to 1000. 
70 IF TI$=''?'' THEN 1000 


14 the human wants to end, chose the files. 
71 IF TI$="'N'" THEN CLOSE 1: CLOSE 2: ° END 
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Make T$ be similar to TI$; but make T$ be exactly 60 characters Long, by adding 
blank spaces at the end. 
72 LSET TF$=TI$: TS=TF$ 


Hunt through the data bank, to find the topic. 14 the topic is found, go to 3000. 
80 GOSUB 5000: IF I>0 THEN 3000 


That topic 4s not in the data bank. 
110 PRINT '"'I DON'T KNOW ANYTHING ABOUT THAT TOPIC." 
120 INPUT "WOULD YOU LIKE TO TEACH ME";A$: IF A$<''Y" THEN 30 


Insert that topic into the data bank. 

150 N=N+1: LSET N$=MKI$(N): PUT 2, 1 

151 LSET P$(J)=MKI$(N): PUT 1, I1 

170 PRINT ''TELL ME ABOUT "'TI$: LINE INPUT D$ 

182 LSET TF$=T$: LSET DF$=D$: LSET P$(1)=MKI$(0): LSET P$(2)=MKI$(0): PUT 1, N 
190 GO TO 30 


PART 3: TELL THE HUMAN WHAT TOPICS ARE IN THE DATA BANK 


1% the data bank is empty (aside from "N"), go to 2000. 
1000 IF N=1 THEN 2000 


The data bank contains topics. List them. 

1010 PRINT "I KNOW ABOUT THESE TOPICS:" 

e20Sror 1 =-2 TON: GE Le I: PRINT TFS: NEXT 

1060 PRINT ''PICK ONE OF THOSE TOPICS, OR TEACH ME A NEW ONE," 
1070 GO TO 30 


The data bank 4% empty. 

2000 PRINT "I DON'T KNOW ANY TOPICS YET." 
2010 PRINT "MY MIND IS STILL BLANK." 

2020 PRINT ''PLEASE TEACH ME A NEW TOPIC." 
2030 GO TO 30 


PART 4: THE REQUESTED TOPIC IS IN THE DATA BANK 


Tek the human about the topic. 

3000 PRINT "HERE'S WHAT I KNOW ABOUT "'TI$'":'': PRINT DF$ 

3020 INPUT ''DO YOU WANT TO CHANGE THAT INFORMATION'';A$: IF A$<''Y'' THEN 30 

3050 PRINT "OKAY. I'VE ERASED THAT INFORMATION ABOUT ''TI$''." 

3060 PRINT "DO YOU WANT TO GIVE ME NEW INFORMATION ABOUT "'TI$;: INPUT A$ 

3080 IF A$>="'Y"' THEN PRINT "TELL ME ABOUT "'TI$: LINE INPUT D$: LSET DF$=D$: 
Pt ia, UU 


Delete the topic from the data bank. 
4000 A=I: P1=CVI(P$(I)): P2=CV1I(P$(2)) 
4001 GET 1, I1: LSET P$(J)=MKI$(P1): PUT 1, I1 
4003 IF P2>0 THEN GET 1, P2:. T$=TF$: I=I1:. GOSUB.5010:. LSET P$(J)=MKI$(P2): PUT 1, I1 
4008 IPO N>A. THEN GETs1, oNoicd$=tFSi:. PUT. 1, As. -GOSUB,5000:.- GET.1, -I1: 
LSET P$(J)=MKI$(A): PUT 1, I1 
4020 N=N-1: LSET N$=MKI$(N): PUT 2, 1 
4030 GO TO 30 


Par ies.) SUBROUTINE 

Hunt for T$ in the data bank. Let I = the position of T$; Let 11 = the position of 
the topic that points to T$; Let J = 1 if the arrow pointing to TS points to the 
heft, but Let J = 2 4§ that arrow points to the right. 14 TS %& not in the data 
bank, Let I = zenro. 

5000 I=1 5020 IF T$<TF$ THEN J=1 ELSE J=2 

5010 GET 1, I 5100 I1l=I: I=CVI(P$(J)): IF I>0 THEN 5010 
5011 IF T$=TF$ THEN RETURN 5999 RETURN 
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TRY ‘FHESE- TESTS. 
answers are on the facing pages 


Fortran 
Which carriage control makes the computer print on a new page? 
What letters should integer variables begin with? 
On most computers, how long can a variable's name be? 
If you say NUM=31.9, what will NUM be? 
In the FORMAT statement, what letter must you put for an integer? 
In the FORMAT statement, what's the safest, most flexible letter to put for a real? 
How much is 11/4? How much is 3/4? How much is 10**(-2)? 
If you say JERK=20.9+30.9, how much is JERK? 
If you say APPLE=37/10, how much is APPLE? 
How do you say, "the square root of J''? 
What does .LE. mean? 
How do you say, "if I is 5, let J be 3''? 
How do you say, "if I is 2 or 9 or an integer from 50 to 100"? 
Translate these words from BASIC to FORTRAN: REM, FOR, DIM. 
Write "PRINT 10, X(3),X(4),X(5),X(6),X(7),X(8)" more briefly. 
Write a DATA statement that makes L be this list: 40,37,91,62. 
Besides integers and reals, what are the other two major kinds of numbers? 
What does "'READ(17,30) X'' mean? 
What word do you put in a main routine, to make the computer go to a subroutine? 
What do the letters SSP stand for? 
What are the Calcomp subroutines intended to be used for? 


Cobol 
Name the four divisions of a COBOL program, in the correct order. 
Name the two most popular sections of the DATA DIVISION, in the correct order. 
Which column should headings begin in? Which column do sentences normally begin in? 
At the end of every heading, what must you put? 
Where must you put a semicolon? 
How many characters can be in a COBOL name? 
What's the shortest way to say "PICTURE IS XXXXXXX''? 
What's the shortest way to say "COMPUTE A = A / 4"? 
In the expression 9999V99, what does each 9 stand for? What does the V stand for? 
In a PICTURE, what does a B stand for? 
An edited PICTURE can show the sign by "-'' and "DB'' and two other means. Name them. 
In the FILE-CONTROL paragraph, what's the first word of the first sentence? 
If a sentence begins with READ, what other 2 words must the sentence contain? 
If a sentence's first word is OPEN, what are the 3 main choices for the second word? 
How do you make the computer do paragraph X repeatedly, for I = 5 to 17? 


Algol 
What two words must be in every ALGOL program? 
What do you usually put at the end of each statement? 
To say "let Y equal 5+5'', what symbol must you put before the equal sign? 
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ANSWERS 


and pages to look at, tn volumes 3 and 4 


Fortran 
"1'. gin .valume 3, look at page 2. 
Piel hs COM and Neh erage 
The variable's name can be up to 6 characters long. Page 5. 
NUM will be just 31. Page 5. 
by Page #6. 
el, PR OGE late 
Biya is sjust 2;;and?3/4 is zero; and 10**(=2) 1s zero-also.~« Pages. 
dbukees gust of. Page §. 
APOLE “is "just) the real ‘number .3-07 -Paged. 
SQRT(FLOAT(J)). Page 11. 
itemeans less than or equal to": Page ris: 
eatte be co) ue Ss. Page. 1). 
Peotiieeein co SOR., J .EQ. 9 Oho UeGhensUSeAND. «Ll . LE 100), .Fage 15. 
REM becomes C. FOR becomes DO. DIM becomes DIMENSION. Pages 14, 16, and 17. 
PRINT VIO; -(X (1), 1=3,8). fagerls . 
DATA L/40,37,91,62/. Page 19. 
Double precision. .Complex. Pages 22 and 24. 
Read X from the file whose unit number is 67. Use the format in line 30. Page 25. 
CALL. Fage 26. 
Scientific Subroutine Package. Fage 29. 
The Calcomp subroutines make the computer operate a Calcomp plotter. Page 29. 


Cobol 
IDENTIFICATION, then ENVIRONMENT, then DATA, then PROCEDURE. Volume 3, page 31. 
The FILE SECTION, then the WORKING-STORAGE SECTION. Fage 31. 
Headings begin in the 8th column. Sentences normally begin in the 12th. Page 32. 
A period. Page 32. 
COBOL never requires commas or semicolons. Page 382. 
30. Page 354. 
PICVECH) 229 Page + 37% 
DIVIDE 4 INTO A. Page 37. : 
Each 9 stands for a digit. The V stands for a decimal point. Page 38. 
A blank space. Page 40. 
Macand CR sPage: Lie 
SELECT." Page 42. 
The words AT and END. Page 43. 
The second word can be INPUT or OUTPUT or I-0. Pages 44 and 46. 
Say PERFORM X VARYING I FROM 5 BY 1 UNTIL I > 17. Page 50. 


Algol 
BEGIN and END. Volume 3, page 55. 
A semicolon. Page 50. 
A*colon,’” Page sé. 
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Exotic languages 
Which big language did IBM invent, to combine FORTRAN, COBOL, and ALGOL? 
What do the letters APT stand for? 
What do the letters COBOL stand for? 
What do the letters SPSS stand for? 
Which language did Forrester use, to program the World Dynamics Model? 
What's the most popular language for IBM System/3 and IBM System/32 computers? 
What is a list"s CAR? What is a list's CDR 
Which major language was designed specifically for analyzing queues? 
Write a SNOBOL statement that replaces every "IN" by '"UCK", throughout the string X. 
10. In APL, how much is 9-4-3? 
13, In APL. how unuch.bs75 ‘2.8417 
12. What's the main advantage of APL's notation? What's the main disadvantage? 
13. Which popular language today was originally called "FORTRAN VI" and then "'NPL''? 
14. Which major language is PASCAL based on? 


WOON ADMNHRWN RF 


General hardware 
What's the difference between hardware and software? 
What's the difference between ROM and RAM? 
What do you call the part of the computer that holds and manipulates a disk? 
What do the letters CPU stand for? 


PWN RF 


Bits 
Convert the number 74 from the decimal system to the binary system. 
Convert the number 10100001.10011 from binary to octal. 
Convert the number 4F from hexadecimal to binary. 
For the IBM 360 (and 370), how many bits are in a word? 
For most microcomputers, how many bits are in a word? 
Instead of ASCII, what character-code do IBM computers use? 
On most computers, how many bits are in a byte? 
How many bits are in a nibble? 
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Software 
If you "toggle a program in", what language is the program written in? 
What's an operating system? 
3. What's the difference between a bootstrap loader and a linking Peasant 


NO rR 


CPU 
1. What do the letters ALU stand for? 
2. If you shift the bits 10111001 toward the left arithmetically, what do you get? 
3. If the ALU can't compute a result correctly, which flag does it turn on? 
4. What's a nanosecond? 
5. How many picoseconds are in a microsecond? 
6. What's the difference between multtprocessing and array processing? 
7. When discussing the flag register, what does N stand for? How about Z? C? V? 
8. Which company manufactures the most popular minicomputer? 
9. How do 3rd-generation CPUs differ from lst-generation and 2nd-generation? 


10. What kind of object hides inside a DIP? 
11. What do the letters PC stand for, in PC board? 
12. Name two ways in which CMOS is better than NMOS, and two ways in which it is worse 
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Exotic languages 
PL/I. Volume 3, page 64. 
Automatically Programmed Tools. fage 64. 
Common Business-Oriented Language. Page 64. 
Statistical Package for the Social Sciences. Page 64. 
DYNAMO. Ffage 69. 
RPG. "rage a. 
Mraelist, (iertarserl lemats the CAR, anasthe remainder ot the list is the’ CDR. 76. 
GPSS. Page 80. 
POOP K) PIN' = V'UCK" -SCLOOP). Page 63. 
9-4-5415 8. Lage &é. 
6. 5.9... Frage 88: 
APL's notation is brief, but hard for a human to read. Page 90. 
Piyi., fage 91. 
ALGOL. Page 96. 


General hardware 
Hardware = the computer machinery itself. Software = programs. Volume 4, page 1. 
The computer can change what's in RAM, but not what's in ROM. Page 1. 
A disk drive. Page 2. 
Central processing unit. Page 2. 


Bits 
In the binary system, it is 1001010. Volume 4, page 3. 
in octal, it is 241.46.  Fage 6. 
in binary, it 1s 81001011. Page 6. 
Sz bats. Page 6. 
& bits. Page 6. 
EBCDIC. Page 10. 
oe bats. Page ii. 
ASbats. Ffage 11. 


Software 
Machine language. Volume 4, page 12. 
A program. Helps computer handle many peripherals §& programs simultaneously. 12. 
Bootstrap helps start the operating system. Linking connects subroutines. 12. 


CPU 
Arithmetic/logic unit. Volume 4, page 14. 
You get 11110010. Ffage 15. 
The overflow flag. Pages 16 and 17. 
A billionth of a second; 10 2% seconds. Page 17. 
Amiilion.. Page ti7. 
Multi: main frame holds more than 1 CPU. Array: CPU holds at least 16 ALUs. 18. 
The Negative bit. The Zéro bit. The Carry bit. The Overflow bit. Pages. 16 & 18. 
Digital Equipment Corporation. Pages 3 and 22. 
lst-gen made from vacuum tubes; 2nd-gen, discrete SS ST érd, ICs. Page 40. 
A semiconductor chip. Fage 4l. 
Printed circuit. Page 41. 
CMOS is faster & consumes less power, but is more expensive §& less dense. Page 42. 
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Memory 
How does dynamic RAM differ from stattc RAM? 
What's the usual way to erase an EPROM? 
What's the purpose of the parity bit? 
What's a cache made of? 
What phrase means the same thing as diskette? 
How many bytes are in the "standard" disk pack, such as the IBM 3336-1 or RP04? 


1/0 
How fast does an ASR-33 Teletype print? A DECwriter II? An ADM-3A Dumb Terminal? 
What does baud mean? 
There are two kinds of printers. One kind is serialz. What is the other? 
A character requires how many bits, on a typical IBM card? On a System/3 card? 
What do the letters OCR stand for? 
What's the name of the major computer newspaper? 
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Memory 
In dynamite, the data lasts only 2 milliseconds (unless refreshed). Vol. 4, p. 44. 
Shine intense ultraviolet light at it. Page 44. 
The parity bit helps detect errors. Page 45. 
Bipolar memory chips. Page 46. 
A floppy disk is the same as a diskette. Page 48. 
100 million bytes. Page 49. 


I/0 
10 characters per second. 30 cps. Up to 1920 cps. Volume 4, pages 52 and 53. 
Baud means signals per second. Page 54. 
Line printers. VPage 54. 
Eeeot US une Ol tS.) lage od. 
Optical character recognition. Page 55. 
Computerworld. Page 59. 
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FORTRAN’ S FANCY FEATURES 


Double apostrophe 
To make the computer print an apostrophe, use two apostrophes next to each other. 
PRINT 10 
10 FORMAT (1X, 'MOMMY ISN''T HERE') 
END 
The computer will print: 
MOMMY ISN'T HERE 


T format 
On page 3 of volume 3, you saw this program for meatball lovers: 
PRINT 10 
10 FORMAT (1X, 'EAT A',8X, 'MEATBALL') 
END 


It makes the computer print EAT A, then 8 blank spaces, then MEATBALL: 
EAT A MEATBALL 
This program does the same thing: 

PRINT 10 
10 FORMAT (1X, 'EAT A',T15, 'MEATBALL') 

END 
The computer will print EAT A, then Tab over to the 15th position on the line, and 
print MEATBALL. When the computer tabs to the 15th position, it considers the 
carriage control to be the first "position"; the E in EAT 15 the Tireeenaracter 
the computer will print, but the computer considers it to be the second "position"; 
the A in EAT is the second character the computer will print, but the computer 
considers it to be the third "position"; the M in MEATBALL is the 14th character 
the computer will print, since the T15 says at is\the 15th “position . 


Blank records 

PRINT 10 
10 FORMAT (1X, 'PLEASE'/1X, 'NIBBLE'//1X, 'MY'/////1X, 'CHEESE') 

END 
Line 10 makes the computer print several lines. The first line will say PLEASE. 
The next line will say NIBBLE.. The next line will be blank. The next line will 
say MY. The next 4 lines will be blank. The last line will say CHEESE. So 
alto 
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Repeated formats 
PRINT 10 
10 BORMAT (IX, IPREELY 7.5 (i DOWN! )) 
END 
Line 10 is an abbreviation for this format: 
PX.) 2, EEEL. *; "DOWN'S 'DOWN’ 5. DOWN! 
The computer will print: 
I FEEL DOWNDOWNDOWN 
Let's burp and pray: 
PRINT 10 
10 FORMAT (1X, "JACK ‘52 GUBURPS"/ IXS¢MARY: !), "ALSO PRAYS") 
END 
Line. 10 is an abbreviation for this format: 
ig Jack, “BURPS*/1X, "MARY ', \BURPS"/ LX. 'MARY-", “ALSO PRAYS") 
The computer will print: 
JACK BURPS 
MARY BURPS 
MARY ALSO PRAYS 


Implicit integers and reals 
Normally, the computer assumes that variables beginning with I, J, K, L, M, and N 
are integers, and all other variables are reals. But you can change that. 
If you want all variables to be integers, put this line at the top of your program: 
IMPLICIT INTEGER(A-Z) 
If you want all variables to be reals, say this instead: 
IMPLICIT REAL(A-Z) 
If you want most variables to be integers, but you want FRED and IRMA to be reals, 
put these lines at the top of your program: 
IMPLICIT INTEGER(A-Z) 
REAL FRED, IRMA 
If you want most variables to be reals, but you want FRED and IRMA to be integers, 
say this: 
IMPLICIT REAL(A-Z) 
INTEGER FRED,IRMA 


E format 

For real numbers, the usual formats are F and G, but another option is E. If you 
say E14.6 instead of G14.6, the computer will print an E in the answer. Here are 
examples: 
IN G14.6 IN E14.6 
b-0.283941E-29  b-0.283941E-29 
bb0.293027bbbb =bb0.293027E+00 
bbb5.34523bbbb = bb0.. 534523E+01 
bbb39.4539bbbb bb0.394539E+02 
bbb47802.3bbbb bb0.478023E+05 
bbb986327.bbbb bb0.986327E+06 
bb0O.288341E+24 bbO. 288341E+24 

The G14.6 format is easier for a human to read than E14.6. But most programmers 
are stupid, don't know about G14.6, and use E14.6 instead. 


C32 


P format 

FORTRAN's notation differs from BASIC. If you ask the computer to print 
288341000000000000000000.0 in FORTRAN, by using G14.6 (or E14.6), the computer will 
normally print a 0 before the decimal point, like this: 0.288341E+24. In BASIC, 
the computer will print a non-zero digit before the decimal point, like this: 
26 OGD4 Let 2M 

If you're writing a program in FORTRAN, but you prefer BASIC's notation, ask for 
1PG14.6 (or 1PE14.6). The 1P makes the computer imitate BASIC. But if a FORMAT 
contains 1PG, it must not contain F afterwards; this will print a wrong answer: 

FORMAT (1X, 1PG14.6,F8.2) ; 
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9 trig functions 
In the future, most computers will have FORTRAN 77, which lets you use these 
trigonometric functions: 
SIN(X) ASIN(X) SINH(X) 
COS(X) ACOS(X) COSH(X) 
TAN(X) ATAN(X) TANH(X) 
If your computer understands FORTRAN 77 already, you can use those functions. If 
your computer is an IBM computer having FORTRAN IV-H EXTENDED, or a PDP-11 computer 
having FORTRAN IV-PLUS, you can use those functions. For other computers, here are 
the restrictions at the moment: 


COMPUTER RESTRICTION 
PDP-10 or PDP-20 can't use TAN(X) 
CDC can't use SINH(X) or COSH(X) 


other IBM computers say ARSIN(X) instead of ASIN(X); say ARCOS(X) instead of ACOS(X) 


computers having ary ; 
FORTRAN IV can't use TAN(X), ASIN(X), ACOS(X), SINH(X), or COSH(X) 


Maxima and minima 
To find the maximum real number in a list, ask for AMAX1. For example, 
AMAX1(4.7312.8, 41.6, 9.2, 82.3, 9.7) is 82.3. ‘And -AMINI (4.7, 2.65 Osos 0255, ee 
is the minimum, which is 2.8. If the numbers in the list are integers, say 
MAXO instead of AMAX1, and say MINO instead of AMIN1. 


zero, not o 
Random numbers 


Here's how to set R equal to a random decimal between 0 and 1: 


COMPUTER WHAT TO SAY 

CDC R=RANF (0) 

PDP-10, PDP-20 R=RAN(0) 

PDP-11 R=RAN(ISEED, ISEED2) 


To randomize the random numbers on PDP-10 and PDP-20 computers, put these lines 
near the top of your program: 
CALL TIME(ISEED, ISEED2) 
CALL SETRAN(MOD(ISEED/2+ISEED2/2, 2147483648) ) 
On other computers, randomizing is even more complicated; ask the people who run 
your computer center. 


Alternative continuation characters 
To continue a statement, I suggest you put a 6 in column 6. But if you wish, you 
can put a 1 in column 6, or a 9 in column 6, or a + in column 6, or a * in column 6. 
In fact, you can put any character in column 6, except a zero. 
To continue a statement on PDP computers, immediately after the controlled I you 
can put any non-zero digit, instead of a 6. 


USS 


Alternative IFs 
STATEMENT MEANING STATEMENT 'S NAME TRANSLATION INTO BASIC 
ht 5) 0 Ja3 bielss7i let Ja3. a logical IF IF I<5 THEN J=3 
LROGX) 790 £50.20 If X<0, go to 90. an arithmetic IF (To ON SGN(X)+2 GO TO 90,50,20 
If X=0, go to 50. pronounce "arithmetic", 
If X>0, go to 20. put the accent on met.) 
GO TO (40,20,80),I Go to 40, if I=1. a computed GO TO ON SGN(I) GO TO 40, 20,80 


GOLtO120, if, 1=2, 

Go to 80, if I=3. 

Proceed to the next line, 
if I is some other integer. 


Null DO loops 
If you say — 
DO 10 I=1,N 
—the computer will do up through line 10, N times. For example, if N is 73, the 
computer will do up through line 10, 73 times. If N is 2, the computer will do up 
through line 10, twice. If N is 1, the computer will do up through line 10, once. 
What happens if N is less than 1? The answer depends on which version of FORTRAN 
you're using. If you're using FORTRAN 77, the computer will skip the loop, and 
proceed to the line below line 10. But if you're using FORTRAN IV, the computer 
will do the loop once, as if N were 1. FORTRAN 77 makes more sense, but at the 
moment most computers are still using FORTRAN IV. 


: Implicit double precision and complex 

At the top of your program, you can say: 

IMPLICIT DOUBLE PRECISION (D) 
Then every variable whose first letter is D will be double precision. For example, 
DISTAN and DIAMET and DSIZE will be double precision. 

At the top of your program, you can Say: 

IMPLICIT COMPLEX (C) 
Then every variable whose first letter is C will be complex. For example, CURVE 
and CBROOT and CSIZE will be complex. 


Named files 
For PDP-10 and PDP-20 computers, here's how to make file 3 be on disk and named 
JOE....Near the beginning of your program, say: 
OPEN(UNIT=3, DEVICE='DSK', FILE='JOE.') 
Near the end of your program, say: 
CLOSE (UNIT=3) WeZ 
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THE COMPUTER INDUSTRY: A CYNICAL VIEW 


How computers began 
The first programmable computers were invented in the 1940's. Before then, there 
wasn't much to talk about. People had invented the abacus, then the adding 
machine, and then the.slide rule, but those gadgets were far simpler than computers. 
People had been using punched cards, but fed into machines far simpler than 
computers. 

The history of punched cards is weird. The cards were first used for weaving 
tapestries. Where the cards had holes, rods could move through the cards; those 
moving rods in turn made other rods move, which caused the threads to. weave pictures. 
That machine was called the Jacquard loom. 

The Jacquard loom leads to one of my favorite characters in the history of 
computers: Herman Hollerith. Here's the story of Herman Hollerith.... 

The U.S. Bureau of the Census takes its census every ten years. For the 1880 
census, the guys at the Bureau had a hard time: it took them 7 years to tabulate 
the results of the census. In other words, they didn't finish until 1887. When 
they contemplated the upcoming 1890 census, they got scared: at the rate America 
was growing, they figured that tallying the 1890 census would take 12 years. In 
other words, the results of the 1890 census wouldn't be ready until 1902. So they 
held a contest, to see whether anyone could invent a faster way to tabulate the data. 

Guess who won? Yep, Herman Hollerith. He was the first person to successfully 
use punched cards to process data. 

Hermie (as I shall call him) was modest. When people asked him how he got the 


idea of using punched cards, he had two answers. One was, ''Trains'': he had watched 
a train's conductor punch the tickets. His other, more interesting answer was, 
"Chicken salad". After saying, ''Chicken salad'', he would pause, and wait for you 


to ask the obvious question, "Why chicken salad?'' Then he would tell his tale.... 

One day, a girl saw him gulping down chicken salad. She said, "Oh, you like chicken 
salad? Come over to my house. My mother makes excellent chicken salad." So he did. 
And her father was a head of the Census. (And he married the girl.) 

By the way, there was one thing Herman Hollerith hated: spelling. In elementary 
school, he jumped out a second-story. window, to avoid.a spelling test. 

In some versions of FORTRAN, every string must be preceded by the letter H. For 
example, instead of saying FORMAT (1X,'CAT') you must say FORMAT (1X,3HCAT). The H 
is to honor Herman Hollerith. 

Anyway, getting back to the story, in 1890 the Census used Hollerith's system, 
and used it again in 1900. But in 1910, the Census switched to a more advanced 
system, created by a Census Bureau employee named James Powers, who eventually left 
the Census to start his own company, which eventually merged into Remington-Rand- 
Sperry-Univac. Meanwhile, Herman Hollerith's own company merged into IBM. And 
that's how the first two computer companies got started in data processing. 

Besides Herman Hollerith, there was another colorful character in the history of 
computers: Charles Babbage. He was a wild-eyed English mathematician who, in the 
1800's, believed he could build a fancy computing machine. He convinced the 
British government to give him lots of money. Then he bilked the government for 
more. Many years later—and many British-pounds later—he still hadn't finished 
his machine. So he dropped the idea and—can you believe this? —tried to build an 
even fancter machine. Needless to say, he didn't finish that one either. So you 
might say his life was a failure—and an expensive one, for the British government. 

But Charlie (as I shall call him) is admiréd by all us computerniks (in spite of 
his face, which was even sterner than Beethoven's), because he was the first person 
to realize that a computing machine must be composed of an input device (he used a 
card reader), a memory (which he called ''The Store''), a central processing unit 
(which he called "The Mill"), and an output device (he used a printer). 
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Women's Libbers will kill me if I don't mention Charlie's side-kick, Lady 
Lovelace. (No, she's not related to Linda.) She was one of Charlie's great 
admirers, but he never noticed her until she translated his stuff. 

And boy, it was impossible for him mot to notice her translation. Her "footnotes" 
to the translation were three times as long as what she was translating! 

She got very intense. She wrote to Charlie, 'I am working very hard for you; 
like the Devil in fact; (which perhaps I am)." 

The two became love-birds, although he was old enough to be her father. (By the 
way, her father was Lord Byron, the poet. She was Lord Byron's only "official" 
daughter. He had several other daughters, but they were illegitimate.) Some people 
argue that she was actually brighter than Charlie, despite Charlie's fame. She was 
better at explaining Charlie's machines, and their implications, than Charlie was. 
Some people have dubbed her, "the world's first programmer". 

She stunned all the men she met. She was so bright and...a woman! Here's how 
the editor of The Examiner described her (note the pre-Women's-Lib language!): 

"She was thoroughly original, and her genius, for genius she possessed, was not 
poetic, but metaphysical and mathematical. With an understanding thoroughly masculine 
in solidity, grasp, and firmness, Lady Lovelace had all the delicacies of the most 
refined female character. Her manners, her tastes, her accomplishments, were 

feminine in the nicest sense of the word; and the superficial observer would never 
have divined the strength and the knowledge that lay hidden under the womanly graces. 
Proportionate to her distaste for the frivolous and commonplace was her enjoyment 

of true intellectual society. Eagerly she sought the acquaintance of all who were 
distinguished in science, art, and literature." 

Eventually, she went mad. To prevent her from banging her head, they lined her 
room with mattresses. Nevertheless, she died gruesomely, at the ripe young age of 
36, the same age her father had died. (I guess premature death was popular in her 
Devilish family.) 

I wish the Women's Lib press would pick a different idol than Lady Lovelace. She 
was not the most important woman in the history of computing. Far more important 
were Grace Hopper (who, in the 1950's, invented the first programming languages) 
and Jean Sammet (who headed the main committee that invented COBOL, and who is 
generally considered to be the world's expert on the history of programming languages, 
and who has been president of the U.S. organization of computer professionals, which 
is. called the ACM.) Lady Lovelace was second-string to Babbage. Grace Hopper and 
Jean Sammet are second-string to nobody. But unfortunately, Hopper and Sammet lead 
less racy. lives, so journalists ignore them. Also, since Hopper is an Admiral in the 
Navy (bet you didn't know the Navy had lady Admirals!), she doesn't enchant some of 
us doves. Nevertheless, every time she steps in front of an audience, she gets a 
standing ovation, because all of us realize how crucial she was to what computers 
are today. 

But I'm straying from my story.... 

The first programmable computers were invented, as I said, in the 1940's. Why 
then? Because of World War II. They could have been invented sooner—most of the 
know-how was available several decades earlier—but you can't invent a computer 
unless you have big bucks for research. And the only organization that had big 
enough bucks was the Defense Department (which in those days was more honestly 
called the "War Department"). And the only event that was big enough to make the 
War Department spend that kind of money was World War II. 

Of course, the Germans did the same thing. A German fellow named Konrad Zuse 
built computers which were in some ways better than the American ones. But since 
the Germans lost the war, you don't hear much about old Konrad anymore. Fortunately, 
throughout World War II the German military ignored what he was doing. 
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Most of the computers in the 1940's were invented at universities, usually with 
funds from the War-Defense Department. Some of the most famous computers were the 
Mark I (at Harvard, with help from IBM), the ENIAC and the EDVAC (both at the 
University of Pennsylvania), the Whirlwind (at M.I.T.—the Massachusetts Institute 
of Technology), and the Ferranti Mark I (at the University of Manchester, in England). 
Which of those computers deserves to be called "the first programmable computer'!? 

The answer's up for grabs. Each of those machines had its own peculiar hang-ups, 
and required several years of debugging before it actually worked decently. 

Each of those computers was, as they say in the art world, a "signed original". 
No two of those computers were alike. 


The first generation 
1951-1958 

The first computer to be mass-produced was the UNIVAC I, in 1951. It was made by 
two guys, named Eckert and Mauchly—the same guys who built the ENIAC and EDVA€ at 
the University of Pennsylvania. (Mauchly was an instructor there, and Eckert was the 
graduate student who did the dirty work.) While others at the school were helping 
build the EDVAC, Eckert and Mauchly left and formed their own company, which 
invented and started building the UNIVAC. But by the time the UNIVAC was completed, 
the Eckert-Mauchly company had merged into Remington Rand (which later merged into 
Sperry-Rand, which sprouted a division which today is called Sperry-Univac). 

Because the UNIVAC I was so important, historians call it the beginning of the 
"first generation". As for computers before UNIVAC —historians disparagingly call 
them the "zeroth generation". 

So the first generation began in 1951. It lasted through 1958. Altogether, from 
1951 to 1958, 46 of those UNIVACs were sold. 

46 might not sound like many. But remember: in those days, computers were very 
expensive, and could do very little. Another reason why only 46 were sold is that 
newer models came out, such as the UNIVAC 1103, the UNIVAC 80, and the UNIVAC 90. 

But the biggest reason why only 46 of the UNIVAC I were sold is IBM. Although IBM 
didn't begin mass-marketing computers until 1953—two years after UNIVAC—the IBM guys 
were much better salesmen, and soon practically everybody was buying from IBM. 

During the first generation, the hottest seller was the IBM 650. Yep, IBM sold 

hundreds and hundreds of them. Of course, there were many smaller manufacturers too. 
People summarized the whole computer industry in one phrase: '"'IBM and the Seven Dwarfs". 

Who were the dwarfs? They kept changing. Companies rapidly entered the field 
and then rapidly left, when they realized IBM had the upper hand. By the end of 
the first generation, IBM was getting 70% of the sales. 

During the first generation, there were no terminals. To program the UNIVAC I, 
you had to put the program onto magnetic tape (by using a non-computerized machine), 
then feed the tape into the computer, then wait for the computer to spit out another 
magnetic tape, which you then had to run through another machine, to find out what 
the tape said. 

One reason why the IBM 650 became more popular was that it could read cards 
instead of tapes. It really liked cards. In fact, the answers came out on cards. 

To transfer the answers from cards to paper, you had to run the cards through a 
separate non-computerized machine. 

At the beginning of the first generation, there was no RAM, no ROM, and no core. 
Instead, the UNIVAC's main memory was banks of liquid mercury, in which the bits 
were stored as ultrasonic sould waves. It worked slowly and serially, so the access 
time ranged from 40 to 400 microseconds per bit. UNIVAC's manufacturer and IBM 
started playing around with a different kind of memory, called the Williams tube, 
which was faster (10 to 50 microseconds); but since it was less reliable, it didn't 
sell well. In 1953, several manufacturers started selling computers that were much 
cheaper, becausé they used super-slow main memory: it was a drum that rotated at 
3600 rpm, giving an average access time of 17000 microseconds (17 milliseconds). 
(Today, some computers still use drums, but for auxiliary memory, not for matn memory.) 
The most popular first-generation computer, the IBM 650, was one of those cheap drum 
computers. 
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The idea of core memory began in 1950. The first working models were invented in 
1953 at M.I.T. and RCA, which argued with each other about who owned the patent. 
The courts decided in favor of M.I.T., so both RCA and IBM came out with core-memory 
computers. Core memory proved so popular that even today many minicomputers and 
maxicomputers still use core, though RAM is finally starting to overshadow it. 
During the first generation, computer programming improved a lot. During the 
early '50s, all programs had to be written in machine language. In the middle 
50's, assembly language became available. By 1958, the end of the first generation, 
three major high-level langauges had become available: APT, FORTRAN, and ALGOL. 
People tried to make computers play a decent game of chess. All the attempts 
failed. But at IBM, Arthur Samuel had some luck with checkers. He got his first 
program working in 1952, and then continually improved it, to make it more and more 
sophisticated. In 1955, he rewrote it so that it learned from its own mistakes. 
In 1956, he demonstrated it on national television. He kept working on it. 
Though it hadn't reached championship level yet, it was starting to look impressive. 
Computer music scored its first big success in 1956, on the University of 
Illinois' ILLIAC computer. Hiller § Isaacson made the ILLIAC compose its own 
music, in a style that sounded pre-Bach. In 1957, they made the program more 
flexible, so that it produced many styles of more modern music. The resulting 
mish-mash composition was dubbed ''The ILLIAC Suite", and put onto a phonograph 
record. 
In 1954, IBM wrote a program that translated simple sentences from Russian to 
English. Work on tackling harder sentences continued —with too much optimism. 


The second generation 
1959-1963 

Throughout the first generation, each CPU was composed of vacuum tubes. Back in 
1948, Bell Telephone had invented the transistor, and everybody realized that 
transistors would be better than vacuum tubes; but putting transistors into computers 
posed many practical problems, which weren't solved for many years. Finally, in 
1959, computer companies suddenly started delivering transistorized computers; that 
year marked the beginning of the second generation; sales of vacuum-tube computers 
immediately stopped. 

All second-generation computers used core memory. 

The first company to make transistors for computers was Philco, but the most 
popular second-generation computer turned out to be the IBM 1401, because it was 
business-oriented and cheap. IBM announced it in 1959, and started shipping it to 
customers in 1960. Its core memory required 11.5 microseconds per character; each 
character consisted of 6 bits; the number of characters in the memory could range 
from 1.4K up to 16K. Most people rented the 1401 for about $8,000 per month, but 
you could spend anywhere from $4,000 to $12,000 per month, depending on how much 
memory you wanted, etc. Altogether, IBM installed 14,000 of those machines. IBM 
also installed 1,000 of a faster version called the 1410, which required only 4.5 
microseconds per character, had 10K to 80K, and rented for $8,000 to $18,000 per 
month, typically $11,000. 

Even today, many of those 1401 and 1410 machines are hanging around, and 
companies are still trying to convert programs from the 1401 to the IBM 370. 
Altogether, IBM produced six kinds of computers.... 
small business computers: the 1401, 1410, 1440, and 1460 
small scientific computers: the 1620 


medium-sized business computers: the 7010 
medium-sized scientific computers: the 7040 and 7044 


large business computers: the 7070, 7074, and 7080 
large scientific computers: the 7090 and 7094 

Several employees left Remington-Rand-Sperry-Univac and formed their own company, 
called the Control Data Corporation (CDC). During the second generation, CDC 
produced popular scientifc computers: the 1604, the 3600, and the 3800. 
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During the second generation, software improved tremendously.... 
*-The 3 major programming languages that had been invented during the first generation 
(APT, FORTRAN, and ALGOL) were significantly improved. 
-6 new programming langauges were invented: DYNAMO, RPG, LISP, COBOL, GPSS, and 
SNOBOL. 
*The 3 most popular sorting methods were invented: the Shuffle Sort, the Shell Sort, 
and Quicksort. 
-Programmers wrote many famous programs I mentioned in volume 2: programs that 
answer questions about baseball (page 2), write poetry (page 13), tutor medical 
students (page 35), imitate three-person social interaction (page 38), control a 
mechanical hand (page 39), prove theorems in geometry (page 53), and solve indefinite 
integrals (page 53). 


The dawn of the third generation 
1964-1967 
The third generation began with a big bang, in 1964. Here's what happened in 
1964, 1965, 1966, and 1967.... 

The first modern computer families were shipped. They were the CDC 6600, the 
IBM 360, the PDP-6, the PDP-8, and the PDP-10. Of those families, the CDC 6600 ran 
the most quickly; the IBM 360 was the most flexible, and was also the only one that 
used integrated circuits; the PDP-6 and PDP-10 were the best for timesharing; and 
the PDP-8 was the cheapest. Here are the exact dates. In 1964, CDC began shipping the 
CDC 6600. In 1964, IBM announced it was going to create a new family, the IBM 360; 
shipments began in 1966. In 1964, DEC began shipping the PDP-6 (a maxicomputer) ; 
in 1965, DEC began shipping the PDP-8 (a minicomputer); in 1967, DEC began shipping 
the PDP-10 (a maxicomputer that's a souped-up PDP-6). 

IBM announced it was going to create a new computer language, that would combine 
all previous popular languages, including FORTRAN, COBOL, and ALGOL. That new 
language was PL/I. It was designed especially for IBM's new computer, the 360. 

In 1966, IBM began delivering PL/I to customers. 

Programmers invented the first successful languages for beginners using terminals. 
Those languages were called JOSS, BASIC, and APL. Here are the exact dates. In 
1964, the RAND Corporation invented JOSS, for the JOHNNIAC computer; in 1965, an 
improved version, called JOSS II, was put onto the PDP-6. Today people use three 
popular variations of JOSS: a souped-up version (called AID), a stripped-down 
version (called FOCAL), and a business-oriented version (called MUMPS). Dartmouth 
College invented the first version of BASIC in 1964, and significantly improved it 
in 1966 and 1967. IBM completed the first version of APL in 1965, and put it on 
an IBM 7090; in 1966, IBM wrote a much better version of APL, and put it on an 
IBM 360; in 1967, IBM began shipping APL to customers. 

Stanford University invented the most popular language for statistics: SPSS. 

Researchers in artificial intelligence made the computer chat in ordinary English: 
Raphael made the computer learn from conversations; Bobrow made it use algebra to 
solve ''story problems"; the Systems Development Corporation made it know everything 
in an encyclopedia; General Electric made it answer military questions; Quillian made 
it find underlying concepts; and Weizenbaum made it act as a psychotherapist. For 
details (and limitations of those programs), read pages 2 through 10 in volume 2. 

Greenblatt wrote the first decent chess program. It was good enough to play in 
championship tournaments against humans. For details (and limitations), read page 
52 in volume 2. 

All that happened in just four years —1964 to 1967. Wow! 
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The era of boredom 
1968-1974 
As you can see, the first, second, and third generations —up through 1967 —were 
exciting, full of action. But then, from 1968 to 1974, nothing newsworthy happened. 
That was the era of boredom. 

During the era of boredom, progress was made, but it was gradual and predictable. 
Nothing dramatic happened. 

Of course, nobody actually came out and said, "Life is boring.'"' People phrased 
it differently, more genteelly. For example, this passage was written in September 
1971, by Robert Fenichel and Joseph Weizenbaum, for their introduction to 
Setenttfte Amertcan's computer anthology: ''Partly because of the recent recession 
in the American economy, but more for reasons internal to the field, computer science 
has recently relaxed its pace. Work has not stopped, but that the current mood is 
one of consolidation can scarcely be doubted. Just a few years ago, computer science 
was moving so swiftly that even the professional journals were more archival than 
informative. This book could not then have been produced without great risk of 
misfocus. Today it is much easier to put the articles that constitute this book — 
even the most recent ones —into context." 

The first generation had lasted eight years (1951-1958), and the second generation 
had lasted four years (1959-1963), so people were expecting the third generation to 
last at most four years (1964-1967) and that some kind of "fourth generation" would 
begin about 1968. But it never happened. The only "major'’ announcement around then 
came in 1970, when IBM announced it would produce a new line of computers, called 
the IBM 370, which would make the IBM 360 obsolete. But to IBM's dismay, many 
computer centers decided to hang onto the old 360, instead of switching to the 370. 
The 370's advantage over the 360 was little, until several years later, when IBM 
started developing 370 software that wouldn't run on the 360. 

Since the difference between the 370 and the 360 was disappointingly small, not 
even IBM claimed that the 370 marked a fourth generation. Computer historians, 
desparate for something positive to say about the 370, called it the beginning of 
the 'late third generation", as opposed to the 360, which belonged to the "early 
third generation". 

The cruel fact is, in the entire history of computers, there was only one year 
all computer manufacturers acted together to produce something new. That year was 
1959, when all manufacturers switched from vacuum tubes to transistors. Since 1959, 
we haven't had any consistency. For example, although I said that the third 
generation began with a "big bang'' in 1964, each manufacturer was banging on a 
different drum. IBM was proclaiming how great the IBM 360 would be, because it 
would contain integrated circuits; but other manufacturers decided to ignore 
integrated circuits for several years, and concentrated on improving other aspects 
of the computer instead. For many years after the beginning of the third generation, 
CDC and DEC continued to use discrete transistors (a sign of the second generation) 
instead of integrated circuits. 

The era of boredom happened for three reasons.... 

*-The preceding years, 1964-1967, had been so successful that they were hard to 
improve on. 

*When the Vietnam war ended, the American economy had a recession, especially the 
computer industry, because it had depended on contracts from the Department of 
Defense. In 1969, the recession hit its worst point, and computer companies had 
to lay off many workers. In that year, General Electric gave up, and sold its 
computer division to Honeywell. In 1971, RCA gave up also, and sold its computer 
division to Remington-Rand-Sperry-Univac. 

*The world wasn't yet ready for "the era of personal computing", which began in 
LOTS: 
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During the era of boredom, these changes occurred —quietly: 
‘In 1970, DEC began shipping the PDP-11. The PDP-8 and PDP-11 became the most 
popular minicomputers—far more popular than IBM's minicomputers. So in the field 
‘of minicomputers, IBM no longer had the upper hand. 
-BASIC became the most popular language for the PDP-8 and the PDP-11 and most other 
minicomputers (except IBM's, which emphasized RPG). In high schools and business 
schools, most of the introductory computer courses used BASIC, instead of FORTRAN 
or COBOL. 
*-Many businesses and high schools bought their own minicomputers, instead of renting 
time on neighbors' maxicomputers. The typical high-school computer class used a 
PDP-8. The richest high schools bought PDP-11's. 
-In universities, the social sciences started using computers —and heavily —for doing 
statistical analysis. 
-All new computer families used 8-bit bytes, so the length of each word was a 
multiple of 8 (such as 8, 16, 32, or 64). Most older computer families, invented 
before the era of boredom, had used 6-bit bytes, so the length of each word had 
been a multiple of 6: for example, the PDP-8 had a word of 12 bits; the PDP-10 and 
UNIVAC 1100 and General Electric-Honeywell computers had a word of 36 bits; and the 
CDC 6600 had a word of 60 bits. The IBM 360 was the first computer to use 8-bit 
bytes instead of 6-bit; during the era of boredom, all manufacturers imitated that 
feature from IBM. 
‘CRT terminals (which use T.V.-like screens) got cheaper and cheaper, until they 
were finally as cheap as hard-copy terminals (which use paper). Most computer 
centers replaced hard-copy terminals by CRT terminals, since CRT terminals were 
quicker, quieter, and could do fancy editing. 
*Use of keypunch machines decreased, because many computer centers replaced cards 
by CRT terminals. 
-Interest in new computer languages died. Most computer managers decided to stick 
with the old favorites —FORTRAN and COBOL—instead of switching to more progressive 
languages, such as PL/I. Switching to PL/I would have required many programmers 
to be retrained, and many programs to be rewritten; managers couldn't afford that. 
-Programmers made two last-ditch attempts to improve ALGOL. The first attempt, 
called "ALGOL 68", failed to win popular appeal, because it was too complicated. 
The second attempt, called ''PASCAL", gained more support, but slowly. 
-Maxicomputers were given "virtual core''—disks that pretend to be core, in case 
you're trying to run a program that's too large to fit into core. 
*Semiconductor memory got cheaper and cheaper, until it was finally cheaper than 
core. Most manufacturers replaced core by semiconductor memory. 
*In 1971, Intel began shipping the first microprocessor (complete CPU on a chip). 
It was called the 4004, and had a word of only 4 bits. In 1972, Intel began 
shipping an improved version, called the 8008, whose word had 8 bits. In 1973, 
Intel began shipping an even better version, called the 8080. 


The era of personal computing 
1975-1979 

In January 1975, the cover of Popular Electronics Magazine featured a "complete 
computer for only $395". That computer was called the "Altair 8800", and was 
manufactured by a company called "MITS''. Many people read the article and bought 
the computer. By today's standards, the computer was not complete: it came as a 
kit you had to assemble yourself, by using a soldering iron and following the 
wiring diagrams; it included no software —not FORTRAN, not BASIC, not even 
assembly language or an editor or an operating system—the only way to program it 
was to use machine language, and toggle in the program by flipping the switches on 
the front panel; the only way to get the answers was to look at the blinking lights, 
which gave the answers in binary; there was no ROM, and hardly any RAM; there was 
no disk, no tape, no printer, and no terminal —not even a keyboard. When you bought 
the kit and tried to put it together, you usually found that parts were missing, and 
the diagrams contained errors. In short, it was just an annoying toy, for tinkerers. 
Moreover, MITS quickly raised the price from $395 to $439. 
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Gradually, MITS fixed its errors, and began offering software, RAM, and peripherals — 
at extra cost, so that the typical customer wound up paying several thousand dollars 
extra to get the computer to do anything useful. But what's a few thousand dollars, 
when most competitors were charging tens of thousands of dollars? 

MITS got lots of attention from the press, which thought it might lead to "a 
computer in every home''. Several new companies arose and tried to steal MITS's 
business, by imitating MITS. They offered equipment that was similar to MITS's, but 
was better and also lower-priced. The most famous of these competitors was IMSAI, 
which bragged that its CPU, memory, etc., were interchangeable with MITS's but were 
more "rugged" and "'durable' and cost less. Other early competitors were Processor 
Technology and Polymorphic Systems. Just like MITS, all those companies used the 
8080 CPU and the S-100 bus and offered BASIC (though the versions of BASIC were not 
quite the same). So the hobbiest could do comparative shopping, buy different parts 
of his computer system from different companies, and get the whole combination to work. 

A few manufacturers tried to be different: Southwest Technical Products used the 
6800 CPU; MOS Technology's KIM used the 6502 CPU; the Digital Group used the 8080 CPU 
but with an unusual bus. Those manufacturers fared less well than the ones that 
imitated the Altair. 

All those companies were small. In 1977, two larger companies got into the act: 
Commodore announced it was going to make a computer called the "PET"; and Radio Shack 
announced it was going to make a computer called the "TRS-80"'. Today, the most 
popular personal computer is Radio Shack's TRS-80; the second most popular is 
Commodore's PET; and the third most popular is the Apple 2. Two computers that will 
be available soon, and which are drawing lots of attention and praise, are the © 
Exidy Sorcerer and the Compucolor 2. By the end of 1979, most of us expect the most 
popular personal computer will be the new one from Texas Instruments, which at the 
moment is still wrapped in secrecy. 

Let's take a closer look at today's most popular computer, Radio Shack's TRS-80. 
It's popular because of its low price, its excellent version of BASIC, and the fact 
that you can find it at any of Radio Shack's 6000 stores, where you can take it for 
quick repair if it ever breaks down. (Like most personal computers, Radio Shack's 
comes with a 90-day warranty.) Here are comments about each item.... 

Radio Shack's rock-bottom price is $599. It includes all these: 

‘a video monitor (which looks like an ordinary black-and-white television, but without 
a channel dial); the screen is large (12" diagonal) 

-an ordinary cassette tape recorder —the kind you can listen to music on; it includes 
a counter and a fast-forward button, so you can quickly get to the right place on 

the tape 

‘a keyboard that contains 53 keys (26 for letters, 17 for digits and punctuation and 
math, 2 shift keys, 4 keys that have arrows on them, a space bar, a BREAK key, a 
CLEAR key, and an ENTER key); inside the keyboard hides a Z-80 CPU, a 4-kilobyte ROM 
(containing Level-1 BASIC), a 4-kilobyte RAM, and interfaces; the video interface 
lets the video monitor display 16 rows of 64 characters, or 48 rows of 128 tiny 
rectangles (for drawing pictures) 

*a power transformer that turns AC current into DC 

-cables that connect each of those devices to each other 

‘a cassette tape that contains programs for blackjack and backgammon 

‘an easy-to-read instruction book 

If you don't have the $599 at the moment, your local Radio Shack store will let 
you pay in installments of about $20 per month. 

Radio Shack has an unusual policy: if you own at least one share of Radio Shack 
stock, you get a 10% discount on all Radio Shack computer equipment. Since a share 
of Radio Shack stock costs only about $50, that's a good deal. When you buy 
computer equipment from Radio Shack, put your stockholder number on the order, and 
Radio Shack will mail you the 10% rebate. 
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Unfortunately, Radio Shack's Level-1 BASIC is quite limited. Since it doesn't 
have decent string variables, it can't even alphabetize a list of names. You'll 
want Level-2 BASIC instead. To get Level-2 BASIC, pay Radio Shack an additional 
$99; then Radio Shack will replace the 4-kilobyte ROM (containing Level-1 BASIC) 
by a 12-kilobyte ROM (containing Level-2 BASIC). You'll like Level-2 BASIC; it's 
excellent —much better than the versions of BASIC on the other popular microcomputers 
(such as the PET, the Apple 2, the Exidy Sorcerer, and the Compucolor 2). It 
includes all these commands — 

AUTO CLEAR CLOAD CSAVE DATA DEFDBL DEFINT DEFSNG DEFSTR DELETE DIM EDIT END ERASE 
ERROR FOR GOSUB GOTO IF INPUT LET LIST LLIST LPRINT NEW ON OUT POKE PRINT RANDOM 
READ REM RESET RESTORE RESUME RETURN RUN SET STOP SYSTEM TROFF TRON 

—and all these functions: 

ABS ASC ATN CDBL CHR$ CINT CLEAR COS CSNG ERL ERR EXP FIX FRE INKEY$ INP INT LEN 
LEFT$ LOG LPOS MEM MID$ PEEK POINT POS RIGHT$ RND SGN SIN SQR TAB TAN USR VAL 

STR$ VARPTR 

Because the company that manufactures Radio Shack's Level-2 ROM is behind schedule, 
you'll have to wait about 3 months for your Level-2 ROM to arrive; while you're 
waiting, use Level-l. 

If the programs you're running are long—or if you generate long lists of numbers 
or strings—you'll need more RAM. If you pay Radio Shack $290, Radio Shack will 
replace the 4-kilobyte RAM by a 16-kilobyte RAM. 

Radio Shack sells other items too. Here are all of Radio Shack's prices: 


ITEM PRICE 
main unit $599. That includes essentials, a video screen, a tape recorder, 


a 4K ROM (containing Level-1 BASIC), and a 4K RAM. Add $99 if 
you want a 12K ROM (containing Level-2 BASIC) instead of a 4K ROM 
(containing Level-1 BASIC). Add $290 if you want a 16K RAM 
instead of 4K. 

expansion interface $299. 

minifloppy disk $499 for each disk drive. The price includes the 
drive's cable and the disk that contains the disk operating 
system. Blank disks cost $5.95 each, or 3 for $16.95. Before 
buying this stuff, you must buy Level-2 BASIC and 16K RAM and 
the expansion interface. 

printer $39 for the printer's cable, plus either $499 (which gets you 
a printer that requires thermal paper and prints 150 lines per 
minute) or $1299 (which gets you a printer that accepts regular 
paper but is slower: 21 lines per minute) or $1599 (which gets 
you a printer that avoids paper slippage, since it uses paper 
that has holes on the side, and it pulls the paper by pushing 
the pins through the holes; it is still slow: 21 lines per 
minute). Before buying this stuff, you must buy Level-2 BASIC 
and the expansion interface. 


extra RAM $290 for each extra 16K. Before buying this stuff, you must buy 
the expansion interface, and you must have put 16K RAM in the 
main unit. 


RS-232-C interface $99. It lets you attach the computer to minicomputers, 
maxicomputers, and I/O devices manufactured by others. Before 
buying the RS-232-C interface, you must buy the expansion 
interface. 

acoustic coupler $149. It attaches the computer to a telephone, to communicate 
with other computers far away. Before buying the acoustic 
coupler, you must buy the RS-232-C interface. 
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Radio Shack charges too much for RAM, disks, and printers. To save money, buy 
from these companies instead: 
Microtronix Apparat CPU Shop 
Post Office Box Q 6000°Es Evans Ave: ;,-Bldg. 2 »39 Pleasant=St. 
PhidadéeIphia,” PA 19105 Denver, CO 80222 Charlestown, MA 02129 
phone (800) 523-4550 Phones (505) 756-7275 phone (617) 242-3350 
headed by Phil Aiken headed by Jim Lauletta headed by David Lourie 


VR Data Computer Control 
777 Henderson Blvd. 5001 .RedeHill, Blidge. 1 
Foleroft,. PA, 19032 Costa Mesa, CA 92626 


Here's how those small companies will save you money: 


ITEM RADIO SHACK MOST OF THOSE SMALL COMPANIES 
16K RAM (in main unit or as extra) $290 $99 

Shugart minifloppy disk drive $499 $399 

minifloppy disks Srtom 616.25 10,f0r $37.50 

Centronics thermal printer $499 $395 

impact printer $1299 for Centronics $975 for Centronics; or choose 


a cheaper model, such as the 
$795 Integral Data 
impact printer with pins $1599 for Centronics $1100 for Centronics; or choose 
a cheaper model, such as the 
$945 Integral Data or the 
$449 Expandor 
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This chart compares Radio Shack with the four other admired low-cost computers; 
I've circled the items that are praiseworthy: 
Radio Shack PET Sorcerer 
Base price $795 $895 
ROM included 4K; for 14K 12K 
12K, add $99 
RAM included 4K 8K | 8K 
Video screenfYes yes no 
included? 
Other items tape tape RS-232 RS-232 interface, and 
included recorder recorder (interface minifloppy disk drive 
Graphics black §& w. black §& w. black § -w. 
Text on the 16 lines of 25 lines 30 lines 
screen 64 charac. of 40 cha. : Se 40 cha. 
Smallest 48 rows, 192 rows, YTOws, 


progra'ble 128 columns 280 columns 128 columns 
rectangles 
Lower -case no no no 


letters on 
video? 
Keyboard 53 keys 73 keys 
6502 
BASIC (4K 8K BASIC, 8K BASIC, 6K BASIC, BASIC, monitor, and 
or 12K) 6K monitor 4K monitor 2K monitor disk operating system 
"4K by Radio Microsoft Microsoft 6K by Compucolor 
the BASIC Shack, 12K Apple (add 
by Microsoft $20 for 
Microsoft 
Personally, I prefer Radio Shack, because its Level-2 BASIC is fancier than the © 
versions of BASIC on the PET, Sorcerer, Apple 2, and Compucolor 2. (For example, 
the Compucolor 2 doesn't understand the word ELSE.) On the other hand, the 
cheapest way to buy a disk is to buy the Compucolor 2: the cheapest disk system 
you can get from Radio Shack costs $599+$99+$290+$299+$499=$1786, whereas the 
Compucolor 2 costs only $1495 and gives you, as a bonus, color! 

I hope you've enjoyed The Secret Guide to Computers. If you have more questions 
about computers —~—if you want more details, or you want help in buying a computer or 
running a computer center—call me at (617) 266-8128, 24 hours. (If I'm not in at 
the moment and someone else answers, leave your number, and I’'ZZ call you!) I'd 
love to chat with you and help you all you want by phone—at no charge. If you 
ever visit Boston, drop in and say hello. If you fill out the coupon below, I'll 
put you on my mailing lists, and you'll get all sorts of goodies. 


At your service US 


' Mininntntoaietoiesstadeetateiad si ee 

!Check the items you want me to send: 

ly Vode: 1. BASIC Soars __Free info about how you can get the 

bets) - Volume 2, "Applications", $2.50 forthcoming 10th edition of The Secret 

peo __Volume 3, "Languages", $3.50 Guide to Computers, which will be totally 

| “Volume 4, "Systems", $2.75 different from the 9th edition 

bien _ Volume C1, "Hassles in BASIC", $2.50 __Free info about how you can attend the 

cay _ Volume C2, '...Tough Questions", $2.25 super-intensive 6-week computer course 

net, __a complete 6- ald set, $16.25 I teach at Wesleyan University in the 

| 2 complete 6-volume sets, $32.50 summer 

SO __3 complete 6-volume sets, $39 (a savings _ Free info about how you can attend brief 

lec EnSS375) ~ computer courses I might teach near your 
home town 


'Clip out this coupon, put your name and address on the back, and mail to Russ Walter, 
192 Saint Botolph St., Boston, MA 02116. If you order books, enclose payment, but 
'don't worry about book postage: I pay for the postage myself, even if you live overseas. 
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